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PROGRAM DESCRIPTION GUIDE 


A. 


B. 


IDENTIFICATION 


Program Name 
Programmer * s Names - 
Programmer Contact - 
Date of Issue 


Guyton 

Guyton, White, Marks, and Archer 
G. T. Archer, GE/AGS, Houston 
February 28, 1974 


GENERAL DESCRIPTION 



This model presents a systems analysis of human circulatory regulation 
based almost entirely on experimental data and cumulative present know- 
ledge of the many facets of the circulatory system. The model itself 
consists of 18 different major systems that enter into circulatory 
control. These systems are grouped into l6 distinct sub-programs that 
are melded together to form the total model. 


In spite of the fact that the total model contains almost 100 indepen- 
dent variables and over 350 mathematical relations of various; types, 
each major system is modeled in a relatively crude way only with emphasis 
placed on gross correctness instead of fine details. It has been 
found that the systems analysis thus developed is successful in predic- 
ting the outcome of many varied stress experiments . This is only possi- 
ble because of the extreme stability and many built-in compensations of 
the actual circulatory system. Without this inherent stability, each 
system would have to have been modeled in a much more detailed fashion 
to produce the requisite correlation with experiment . 

The model develops circulatory regulation and fluid regulation in a 
simultaneous manner. Thus, the effects of hormonal and autonomic con- 
•trol, electrolyte regulation ^and excretory dynamics are all important and 
are all included in the model. The model does not treat respiration or 
thermal regulation . 


C. USAGE AND RESTRICTIONS 

Machine, Operating System, and 
Compiler Required 

Peripheral Equipment Required 
Approximate Memory Required 


- Uni vac 1110, EXEC 8, Fortran 

- Printer, Card Reader, Tape Unit, 
Remote Terminal (Tektronix if graph 
output wanted) 

- 20000 1q 
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D. PARTICULAR DESCRIPTION 

Equations used - See the following references:' 

1) Guyton, A.C., Coleman, T.G., and Granger, H.I., "Circulation: Overall 
Regulation," Annual Review of Physiology, V. 3&: 13-U6, 1972. 

2) GE TIR Ho. 7^i-MED"-3Cf42 " 

Definitions of Terms - Appendix A 
Values of Variables - Appendix B 

E. DESCRIPTION OF INPUT 


A Univac 1110 file (GUYTON.) contains the source and relocatables of all 
the subroutines, the executable program, base data files ( GUYTON. GUYDAT 
and GUYTON. TTYDAT), and Remote Batch Run stream file ( GUYTON. RUNGUY ) . 
Remote Batch may require the base data and/or the Remote Batch run stream 
file to be modified. Since GUYTON, is not protected, the user should copy 
GUYTON, into another file, then make his modifications to this other file. 
Examples to follow should explain. 

1. Batch - 

The print and tape output will be generated at the 1110 (onsite), 
a. Onsite Batch 

The run will be in card deck form, and initiated at the 1110 (on- 
site) . A JSC Form 588 A should be submitted with the card deck. 

(l) Job Stream Cards (Start Col. l) 

©RUN, /N BA629C , 7007-Q509-C ,DB6-G03432 , TT , PPP 
( TT=mins . run time,PPP=pages output , NAME =user name) 

@ASG,T 7,8C9,TAPEN0 

(omit above card if output tape not wanted, TAPEN0=tape no.) 

@ASG,AX GUYTON. 

©C0PY GUYTON., TPF$ 

©FREE GUYTON. 

©XQT 

data cards 
©FIN 


f 


Jol. 61 
NAME SKYBAB 



(2) Data Cards 


Card No. 

Column 

Format 

1 • 

1-4 

A4 

2 ’ 

1-4 

a4 

3-N 


1-13 

E- 13.6 


16-20 

15 


23-26 

A4 

N+l 



N+2 

1-4 

14 


5-76 

i8a4 . 

N+3 

' 1^80 

20A4 


n+4 

1-6 

16 


7-10 

A4 


(N+5)-Last Data Card 


Variable Value 

11-14 

A4 


15-27 

E- 13.6 

Time to Stop 

1-6 

16 

Time Step Card 

7-10 

a4 


Last Card 


Description 

Nbbb 

Nbbb if no output tape wanted. 

Ybbb if output tape wanted . 

Cards 3-N are initializing cards for up to 
400 variables (see Appendix Bfor list). 
Variable value . 

Array location (1-400). 

Variable name (left justified) . 

Blank card. 

Experiment no. for printout. 

Alpha heading for printout. 

Up to 20 variable names (left justified) 
wanted for printout. ALLb coded in cols. 
1-4 will result in all 400 variables 
being output, and no output tape will be 
generated . 

Time to stop first time step. 

Units of time ( DAYS, H0UR, MINS, SECS) to . 
which the no. in cols. 1-6 pertains. 
Printout will also occur at this unit of 
time . 

The remaining data cards are combinations of 
'variable value change' and 'time to stop 
time step' cards. 

Alpha name of variable to change (left 
justified) . 

New value for variable- 

Time to stop' next time step. 

Units of time ( DAYS, HOUR, MINS, SECS ) to 
which the no. in cols. 1-6 pertains. 
Printout will also occur at -this unit of 
time . 

As many of the above two types of cards as 
needed can be input at (N+5) - Last Data Card. 

Blank 
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b . Remote Batch 

The run is initiated from a remote terminal. The run stream and 
the data are in Univae 1110 files GUYTON. RUNGUY and GUYTON. GUYDAT'. 
The data file is the same format as the Onsite Batch data cards . 
The following example shows copying GUYTON, into another file 
(NEWFIL.), modifying the run stream and data files, copying the 
run stream into another file (RUNFIL.), then executing the run via 
the remote terminal. 


TTY Input 

@ASG,UP NEWFIL., F2 


Comments 

Catalog a new file named NEWFIL . . 
This need not be done if NEWFIL. 
already catalogued and hasn't 
been deleted. 


@ASG,UP RUNFIL., F2 Catalog a new file to put run ‘ 

stream (run stream must be in 
separate .file) . 

©C0PY GUYTON . , TFF$ . Copy GUYTON. into temporary work 

• file . 

@ED,L RUNGUY , RUNGUY To edit run stream file. 

The run stream is the following format: ^-Col. 6l 

@RUN, /N BA629C , 7007-Q509-C ,DB6-G03^32 , Tt7pPP • N0BECK 

(TT =mins .run time, PPP=pages output. 

@ASG,T 7,8C9,SEMI3XX 

Omit above - if output tape not wanted. 

(XX=01-20 for tape no . ) 

@ASG,AX NEWFIL. 

@C0PY NEWFIL . , TPF$ . 

©FREE NEWFIL. 

@XQT 

@ADD GUYDAT 


The user might want to change the run time or output pages, 
the output tape- no., or completely delete the tape assign 
statement if tape output not wanted. 


@ED,L GUYDAT, GUYDAT 


To edit data file. 


The data file is same format as the Onsite Batch data cards. 

The user can modify (change, delete, or add to) this base 
data file from card 2 on for his particular run. 

@C0PY TEF$. , NEWFIL. Copy temporary work file into NEWFIL. 

@C0PY,S TPF$ . RUNGUY, RUNFIL . Copy run stream in RUNFIL. 

@MSG,0 STARTING SBMDXX Omit this input if an output tape 

PROCESSING not wanted. XX=01=20 for tape no. 

©FREE RUNFIL. 

@START RUNFIL. RUNGUY Initialize Remote Batch execution. 


NOTE.:' After above input, NEWFIL. contains the latest run stream and- data 
files . The next time the user wants to modify these files he may 
substitute the first three TTY inputs with ©C0PY NEWFIL ., TPF$ . . 
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2. Demand (Time -Share) 

The run will be initiated from a remote terminal. The print and/or 
graphic output will be to the terminal that initiated the run. Since 
output tapes are made so results can be plotted on a plotter, the 
option to make a tape is not used in the Demand mode because with the 
Tektronix terminal the user may generate graphic output. The user 
inputs his data via responding to questions asked by the program. 
Options are available so a user can input all his data before the pro- 
gram executes, or intermediate results may be requested allowing the 
user to determine what variables to change (and to what values) and 
what variables to output and/or graph; before continued execution. 
Numerous options are available for the generation of graphic output . 
Note the following example: (Appendix D also contains an example). 


TTY Input /Output 

©COPY GUYTON. ,TPF$. 

@XQT 

CONVERSATIONAL INPUT (A4)Y,N. . . 
Y (user answer) 

WANT OUTPUT TAPS (a4)Y,N. . . 

N (user answer) 

ADD DATA PILE (@ADD TTYDATV, . . 
@ADD TTYDAT (user answer) 


INPUT N0.AND NAME F0R EXPERIMENT 
( 14 15A4) 

1313 REDUCE CV TEST 2/21/74 (user 
answer) 


TYPE RETURN. . . 


0UTPUT WANTED 0R SAME,ST0P (6A4)... 
YRC "VP Q02 PRA HM I (user answer) 


INPUT WANTED CHGED. (A4,2X,F10 .4) 
D0NE=N0 M0RE CHGS . . . 

SYMB VALUE... 

D0NE (user answer) 


Comments 

Copy program into work file. 
Execute program. 

Question from program. 


Question from program . 

Question from program. 

This adds initial data for 
variables In program. 

Question from program. 

This will be output on number and 
graph outputs . 

Question from program. 

User answers with Carriage Return. 

Question from program. 1-6 variable 
names may be entered here. These will 
be the variables printed out and/or the 
variables available for graphing. If 
this is not the 1st ’Run Step', SAME 
may be entered meaning same variables 
as preceding 'Run Step'. ST0P 
entered will stop execution of program. 


Opportunity for user to change the 
value of any variables. 
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TTy Input /Out put ( cont ' d) 

TIME STEP (A4,1X,F6.0,F6.0)... 

UNIT PRINT. TIME ( UNIT =DAYS, HOUR, MINS, 
SECS, STEP)... 

H0UR1 1. 5- (user answer) 


EXEC PARAM.(A4) (M0RE,RUN,PI)0T) . . . 
M0RE (user answer) 


INPUT WANTED CHGED. (A4,2X,F10.4) D0NE= 
N0 M0EE CHGSS . . , 

SYMB VALUE... 

CV .06 (user answer) 

CV .0600 

SYMB VALUE... 

D0NE (user answer) 


Comments 

Question from program. Program 
wants -to know how long to run this 
'Time Step', and what times to 
printout results (in case the user 
is going to exercise the option of 
outputting numbers ) . 

STEP entered will cause the program 1 
printout the beginning, ending, and 
total time of the ’Run Step' (total < 
all 'Time .Steps '•) ’input at this time 

Question from program. M0KE means 
the user wants to enter more 'Time 
Steps' before executing the 'Run 
Step' . RUN means to execute the 
'Time Steps' (the total of 
these 'Time Steps' constituted 
'Run Step') printing the results 
in number form. Each time the 
screen is filled with numbers, the 
program gives the user the oppor- 
tunity to make hard copies before 
erasing the screen and continuing 
the number output. At the conclusioi 
of the number output for the 'Run 
Step', the user is then given the 
opportunity to graph any of the out- 
put variables. • PL0T entered will 
execute the 'Run Step ' /5 while plot- 
ting on graphs as it is being exe- 
cuted (no number output). 


Program echos user change. 
Program asks for more changes 


TIME STEP (A4,1X,F6.0,f6.0). . . 

UNIT PRINT TIME (UNIT=DAYS ,H0UR, MINS, SECS, STEP) .. . 
H0UR 2. 20. (user answer) 

EXEC PARM.(A4) (M0RE,RUN,PL0T) . . . 

PL0T (user answer) 


GRAPH OUTPUT WANTED (Y,N,S))N0. INTERVALS 0F TIME (A4,F5.0) . . . Program wants to 
Y 5. (user answer) know if graph output wanted, and if 

it is, how many divisions wanted in 
time- (at present this can only be 

3 . ,4., or 5-). 

(corrt . 1 d next page) 
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TTY Input /0ut.put 


Comments 


The total ’Run Step' time (which is 
, in mins.) will be divided by the 
of -divisions of time. This quotient 
will be factored to nearest unit of -time 
(like multiplied by 60 if quotient is 
<1 for secs., or divided by 60 
if . - 60 and '< l4l0 for hour units , 
etc.) The user can correlate his 
'Run Step' time with the N0 . INTERVALS 
0F TIME he inputs so the X scale will 
be some meaningful increment of time 
(like if 'Run Step' started at 0 and 
went to 40 mins., a good N0. INTERVALS 
OF TIME would be 4.^0 that each time 
division would be incremented by 10 
minutes;*- . 

S means to use the same graph com- 
mands as used in previous graphs 
made. N means do not graph. 


VRC Y 
PL0T(Y,E,S) LOC 
Y 1. 


into 1,2, 3,4, 5, or 6 different graphs, 
with the variables available for 
graphing put into the graphs any way 
wanted. L0C is the graph command that 
conveys to program how many graphs, 
and which graph the variable is to be 
plotted on. Example: If the screen 
were to be divided into two graphs, 
all the variables wanted in the-' 
top graph would have 1. entered in 
L0C, and all variables wanted in the 
bottom graph would have 2. entered 
in L0C . Variables plotted on same 
graph will be distinguishable by 
different types of lines. HIGH and 
L0W is the maximum and minimum values 
wanted plotted of the variable . S 
entered means plot the variable with 
the same graph commands as used in 
previous graph output. N entered 
means this variable is not to be 
plotted . 


SCALE (A4,6X,F4.0,2F6.0) 
HIGH LOW . . . 

2.5 0. (user answer) 


When a Y is entered in response to 
'GRAPH 0UTPUT WANTED' question, the 
program will give the user the oppor- 
tunity to provide graph commands for 
each of the variables available for 
graphing. The screen can be divided 
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TTY Input /Output Comments 

VP Y SCALE (A4,6X,F4.0,2F6.0) 

PLOT( Y,N,S) LOC HIGH L0N... Etc. for all the variables entered 

N (user answer) in '0UTFUT WANTED' question. 

When a user enters graph commands for the last variable, the program 
plots the graph(s)on the screen. The program then gives the 
user opportunities to make hard copies . When the user is finished 
making hard copies (a N is entered to hard copy question), the 
program cycles .back to 'GRAPH 0UTPUT WANTED' question, giving an 
opportunity to re-graph this same 'Run Step' again (maybe with 
completely different graph commands). This sequence continues 
until the user enters N -to 'GRAPH 0UTFUT WANTED' question. At 
that time the program cycles back to '0UTPUT WANTED' question 
so the user can build a new 'Run Step' beginning at the time 
where previous 'Run Step’ ended. 

F. DESCRIPTION OF OUTPUT 

See Appendix C for example of Batch output. 

See Appendix D for example of Demand input /output . 


G. INTERNAL CHECKS AND EXITS 

1. Curve limits are checked with a diagnostic message printed put if they 
are exceeded. 

2. Demand mode checks input data for invalid input, allowing the user to 
resubmit his input if wrong. 

3. Demand mode will buffer up to 200 input changes, and 100‘ 'Time Steps' 
per 'Run Step’ . 


H. INDEPENDENT SUBROUTINES 

See Appendix E for listing of all subroutines dxcept Tektronix plot software. 


I. SYSTEM SUBROUTINES 

No special system subroutines. 


T. COMPLETION OR FINAL CHECKOUT DATE 


2/21/74 



APPENDIX A 


DEFINITION OF TEEMS 
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The following list includes ail variables used in the model together with the norma! 
values of these variables. Independent varicbles (never calculated by the program) are 
indicated by \ Units used are: volume in liters, mass in grams, time in minutes, chemical 

units in milliequivalents, pressure in. millimeters of mercury, and control factors as ratio 
to normal . 


AAR- afferent arteriolar resistance (31.7) 


AG in- 


constant concerned with effect of renin on angiotensin formation (CK20) 


AH- 

AHC- 

AHK*- 

AHM- 

AHY- 

AHZ- 

AH8- 

ALO*- 

AM- 

AMC- 

AMM-= 

AMP- 

AMR- 

AMT*- 

AM1- 


anti diuretic hormone secretion rate (3.0) 
antidiuretic hormone concentration (1.0) 

constant used in calculating antidiuretic hormone concentration (7.0) 
antidiurerlc hormone multiplier (1.0) 

adapted effect of right atrial pressure on antidiuretic hormone secretion rate (0.0) 
basic effect of right atrial pressure on antidiuretic hormone secretion rate (0.0) 
effect of autonomic stimulation on antidiuretic hormone secretion rate (0.0) 
maximum aortic arterial oxygen saturation (1.0) 

aldosterone-multiplier (1.0) 
aldosterone .concentration .(1 .0) 

muscle vascular constriction caused by local tissue control, ratio to resting state (1.0) 

effect of arterial piessure on rate of aldosterone secretion (1 .0) 

effect of sodium to potassium ratio on rate of aldosterone secretion (1.0) 

time constant of alaosterone accumulation and destruction (60) 

rate of aldosterone secretion (1.0) 



ix- 


ANC- 

ANM- 

ANP- 

ANR- 

ANT*-' 

ANU- 

ANV*- 

ANW- 

ANY*- 

ANZ*- 

AN1 - 

AOM- 

APD- 

ARF*- 

ARM- 

AR1- 

AR2- 

AR3-. 

AU- 

AUB- 

AUC- 

AUH- 


angiotensin concentration (1.0) 

angiotensin multiplier effect on vascular resistance, ratio to normal (1.0) 
effect of renal blood flow on angiotensin formation (1.0) 

effect of glomerular filtration and sodium concentration on renin formation 
with consequent effect on angiotensin formation (1.0) 

time constant of angiotensin accumulation and destruction (15.0) 

non-renal effect of angiotensin (1.0) 

constant used in calculating effect of renin formation on angiotensin formation 
(0.0003) 

partial effect of renin on angiotensin formation (0.0) 
constant used to calculate angiotensin effect on venous volume (-0.2) 
constant used to calculate angiotensin effect on venous resistance (6.4) 
rate of angiotensin formation (1 .0) 

autonomic effect on tissue oxygen utilization (1.0) 

afferent arteriolar pressure drop (38.0) 

intensity of sympathetic effects on renal function (1.5) 

vasoconstrictor effect of all types of autoregulation (1.0) 

vasoconstrictor effect of rapid autoregulation (1.0) 

vasoconstrictor effect of intermediate autoregulation (1.0) 

vasoconstrictor effect of long-term autoregulation (1.0) 

overall activity of autonomic system (1.0) 

effect of baroreceptors on autoregulation (1.0) 

effect of chemoreceptors on autonomic stimulation (0.0) 

autonomic stimulation of heart (1.0) 
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AUJ- 

AUK*- 

AUL*- 

AUM- 

AUN- 

AUO- 

AUP- 

AUQ*- 

AUR- 

AUS*- 

AUV*- 

AUX*- 

AUY*- 

AUZ*- 

AU4- 

AU6- 

AU8- 

AVE- 

A1B- 

A1K*- 

A2K*- 

A3K*- 

A4K*- 

BFM- 


basic overall autonomic stimulation (1.0) 

time constant of baroreceptor adaptation (0.0005) 

sensitivity of sympathetic control of vascular capacitance (0.21) 

sympathetic vasoconstrictor effect on arteries (1.0) 

effect of CNS ischemic reflex on autoregulation (0.0) 

fractional departure of overall activity of autonomic system from normal (0.0) 

autonomic stimulation of peripheral circulatory sensitivity (1.0) 

sensitivity of sympathetic control of peripheral circulation (1.0) 

autonomic stimulation for heart rate (1.0) 

sensitivity of sympathetic control of heart rate (1.0) 

sensitivity of sympathetic control on heart function (0.3) 

sensitivity of baroreceptors (3.0) 

sensitivity of sympathetic control of veins (0.25) 

overall sensitivity of autonomic control (1.0) 

degree of adjustment of baroreceptor response (0.0) 

adapted baroreceptor response (1.0) 

rate of adaptation of baroreceptors (0.0) 

effect of autonomic stimulation on venous resistance-(l .0) 

sensitivity parameter for baroreceptor drive (1.0) 

time constant of rapid autoregulation 

time constant of intermediate autoregulation (20.0) 

time constant of long-term autoregulation (11520.0) 

time constant for muscle local vascular response to metabolic activity (1.0) 
muscle blood flow (1.0) 
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BFN- 

CCD- 

CFC*- 

CHY- 

CKE- 

CKI- 

CNA- 

CNB- 

CNR*- 

CNE- 

CNX* 

CNY*- 

CNZ*- 

CN2 t 

CN3- 

CN7*- 

CPF*- 

CPG- 

CPI- 

CPK*- 


blood flow in non-muscle, non-renal tissues (3.0' 
concentration gradient across cell membrane (0.0) 
copi I lary filtration coefficient (0.007) 
concentration of hyaluronic acid in tissue fluids (5.0) 
extracellular potassium concentration (5.0) 
intracellular potassium concentration (142.0) 
extracellular sodium concentration (142.0) 

difference between extracellular sodium concentration and set point used to 
calculate antidiuretic hormone secretion rate (3.0). 

reference sodium concentration used in determining effect of sodium on anti- 
diuretic hormone secretion rate (139.0). 

sodium concentration abnormality causing third factor effect (10.0) 

constant used in calculation of renal excretion rate of sodium (2.5) 

constant used in calculation of renal .excretion rate of sodium (6.0) 

sensitivity of antidiuretic hormone production rate to extracellular sodium 
concentration (1.0) 

constant used in calculation of venous resistance (0.0212) 

dummy variable used in calculation of the effect of capillary pressure on 
venous resistance (0.366) 

constant used in calculation of venous resistance (0.2). 

sensitivity of rate of transfer of fluid across pulmonary capillaries to pressure 
gradient (0.0003) 

concentration of protein in tissue gel (12.-5) 

concentration of protein in free interstitial fluid (16.5) 

rate constant used in determining loss of plasma protein through systemic 
capillaries (1.6x10“^) 



CPN- 

CPP- 

CPR*- 

CV*- 

DAS- 

DAU- 

DFP- 

DHM- 

DLA- 

DLP- 

DLZ- 

DOB- 

DPA- 

DPO 

DPI- 

DPL- 

DPO*- 

DRA- 

DVS- 

EXC* 

EXE- 

EX1*- 


concentration of protein in pulmonary fluids (30.0) 
plasma protein concentration (70.0) 

pl Q sma protein concentration governing protein production by liver 

venous capacitance (0.0925) 

rate of volume increase of systemic arteries (0.0) 

autonomic stimulation drive (1.0) 

rate of increase in pulmonary free fluid (0.0) 

rate of cardiac deterioration caused by hypoxia (0.0) 

rate of volume increase in pulmonary veins and left atrium (0.0) 

rate of formation of plasma protein by liver (0.007) 

undamped plasma protein concentration differential causing protein production 
by liver (0.007) 

rate of oxygen delivery to non-muscle cells (180.0) 
rate of increase in pulmonary volume (0.0) 

rate of loss of plasma proteins through systemic capillaries (0.05) 

rate of change of protein in free interstitial fluid (0.0) 

rate of systemic lymphatic return of protein (0.05) 

rate of loss of plasma protein (0.007) - 

rate of increase in right atrial vofume (0.0) 

rate of increase in venous vascular volume (0.0) 

exercise activity, ratio to normal at rest (J.0) 

exercise effect on autonomic stimulation (0.0) 

constant concerned with effect of muscle cell POo on autonomic stimulation 
during exercise (3.0) 



FIS*— 

GBL*- 

GFN- 

GFR- 

GF1 - 

GF2*- 

GF3- 

GF4*- 

GLP- 

GPD- 

GPR- 

HKM*- 

HM- 

HMD- 

HMK*- 

HPL- 

HPR- 

HR- 

HSL*- 

HSR*- 

HYL*- 

1 - 

IFP- 
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fiskiia parameter (0.0) 

Goldblatt hypertension parameter (0.0) 

glomerular filtration rate of undamaged kidney (0. 125) 

glomerular filtration rate (0.125) 

value of GFN on previous iteration (0. 125) 

constant used in calculation of glomerular filtration rate (0.05) 

degree of autoregulatory feedback at macular densa (1.0) 

constant controlling the feedback loop for GF3 (5.0) 

glomerular pressure (62.0) 

rate of increase of protein in gel (0.0) 

total protein in gel (143.0) 

constant used in calculation of portion of blood viscosity caused by red blood 
cells (0.53) 

hematocrit (41.0) 

cardiac depressant effect of hypoxia (1.0) 

constant used in- calculation of portion of blood viscosity caused by red blood 
cells (90.0) 

hypertrophy effect on left ventricle (1.0) 
hypertrophy effect on right ventricle (1.0) 
heart rate (72.0) 

basic left ventricular strenght (1.0) 
basic right ventricular strength (1.0) 
quantity of hyaluronic acid in tissues (57.0) 
integration step size (0.73) 
interstitial fluid protein (9.1) 

variable integration step size utilized on stable usvmptote 


II- 



12 *- 

13*- 

KCD- 

KE- 

KED- 

Ki- 

KID* 

KiE- 

K1R- 

KOD- 

LPK* - 

LVM- 

MMO- 

M02- 

NAE- 

NED- 

NID*- 

NOD- 

NOZ- 

OMM*- 

OSA- 

OSV- 


normal increment on time (0.003) 

‘maximum time increment for stable asymptote (20.0) 

rate of change of intracellular potassium concentration (0.0) 

total extracellular fluid potassium (75.0) 

rate of change of extracellular potassium concentration (0,0) 
total intracellular potassium concentration (3550.0) 
rate of potassium intake (0,0028) 

excess potassium concentration causing change in intracellular potassium 
level (0.0) 

total expected level of potassium in the intracellular fluid under equilibrium 
conditions (3550.0) 

rate of renal loss of potassium (0.0028) 

rate constant for plasma protein production by liver (0.00047) 

effect of aortic pressure on left ventricular output (1 .0) 

rate of oxygen utilization by muscle cells (60.0) 

rate of oxygen utilization by non-muscle cells (180) 

total extracellular sodium (2136.0) 

rate of change of sodium in extracellular fluids (0.0) 

rate of sodium intake (0. 1) 

rate of renal excretion of sodium (0.1) 

effect of urinary output, aldosterone, and sodium level on renal excretion rate 
for sodium (0.1) 

muscle oxygen utilization at rest (60.0) 
aortic oxygen saturation (1.0) 
non-muscle venous oxygen saturation (0.7) 
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OVA- 

OVS- 

02A*- 

02M*- 


oxygen volume in aortic blood (203.0) 
muscle venous oxygen saturation (0.7) 

sensitivity of the effect of autonomic stimulation on metabolism (1.5) 
basic oxygen utilization in non-muscle body tissues (180.0) 


PA- 

PAM- 

PAR- 

PA1- 

PA2- 

PC- 

PCD- 

PCE*- 

PCP- 

PDO- 

PFI- 

PFL- 

PGC- 

PGH- 

PGL- 

PGP- 

PGR- 

PGS- 

PGV- 


oortlc pressure (100.0) 

effect of arterial pressure in distending arteries r ratio to normal (1.0) 
renal arterial pressure (100.0) 

effective pressure drive on autonomic system (100.0) 
effective arterial pressure on left ventricle (100.0) 
capillary pressure (18.4) 

net pressure gradient across capillary membrane (0.45) 
capillary pressure exponent (3.0) 
pulmonary capillary pressure (7.0) 

d^ enc e between muscle venous oxygen P 02 an d normal venous oxygen Pq 2 

rate of transfer of fluid across pulmonary capillaries (0.0) 

renal filtration pressure (16.0) 

colloid osmotic pressure of tissue gel (6. 1) 

absorbency effect of gel caused by recoil of gel reticulum (-4.0) 
pressure gradient in lungs (15.2) 

colloid osmotic pressure of tissue gel caused by entrapped protein (4.13) 
colloid osmotic pressure of interstitial gel caused by Donnan equilibrium (2.0) 
pressure difference between Grteries and veins (96.0) ‘ 
venous pressure gradient (3.7) 



i8 


PGX- 

PIF- 

PK1*- 

PK2*- 

PK3*- 

PLA- 

PLD- 

PLF- 

PMC- 

PMO- 

PMP- 

PMS- 

PM1- 

PM3*- 

PM4*- 

PM5*- 

POA- 

POB- = 

POC- 

POD- 

POE- 

POK*- 


activity factor for protein in the interstitial fluid (16.5) 
interstitial fluid pressure (-6.0) 

constant used in calculating muscle cell Pqj from total volume of oxygen in 
muscle cells (2500.0) 

constant used in calculating muscle ce » P Oo from total volume of oxygen in 
muscle ceils (800.0) ^ 

A 

constant used in calculating rate of oxygen transport to muscle cells (2.0) 
left atrial pressure (0.0) 

pressure gradient to- cause lymphatic flow (0.8) 

pulmonary lymphatic flow (0.0003) 

mean circulatory pressure (6! 9) 

muscle ce M Po 2 < 8 . 0 ) 

mean pulmonary pressure (4.6) 

mean systemic pressure (7.25) 

effective muscle cell ? q 2 (8.0) 

minimum value allowed for PM1 (0.001) 

constant used in calculating rate of oxygen transport to muscle cells (-1 .0) 

constant used in calculating rate of .oxygen transport to muscle cells (122.0) 

/ 

rate of change of intermediate autoregulation vasoconstrictor effect (1.0) 

rate of change of rapid autaregulation vasoconstrictor effect (1 .0) 

% ^ 1 
rate of change of long-term autoregulation vasoconstrictor effect (1.0) 

non-muscle venous Pq 2 minus normal value (0.0) 

sensitivity control for oxygen feedback control loop (1.0) 

sensitivity of rapid system of autoregulation (0.06) 
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POM*- sensitivity of oxygen feedback control loop (0.08) 

PON*- sensitivity of intermediate autoregulafion (0.3) 

POQ- effective non-muscle cell PO 2 (8-0) 

POR*- reference value of capillary PQ 2 in non-muscle tissue (40.0) 

POS- pulmonary interstitial fluid colloid osmotic pressure (12.0) 

POT- non -muscle cell P 02 (8.2) 

POV- non-muscle yenous PO 2 (40.0) 

POY*- sensitivity of red cell production (0.0000464) 

POZ*~ sensitivity of long-term autoregulation (0.3) 

POl*- constant used in determining oxygen deficit factor causing red cell production (8.25) 
P02- oxygen deficit factor causing red cell production (0.25) 

PPA- pulmonary arterial pressure (15.4) 

PPC- plasma colloid osmotic pressure (28.0) 

PPD- rate of change of protein in pulmonary fluids (0.0) 

PP1- pulmonary interstitial, fluid pressure (-10.0) 

PPN- rate of pulmonary capillary protein loss (0.0) 

PPO- pulmonary lymph protein flow (0.009) 

PPR- total protein in pulmonary fluids (0.38) 

PP1- variable used to empirically relate pulmonary arterial pressure and pulmonary . 
arterial resistance (0.4) 

PP2- 
PRA- 


PRM- 


effective pulmonary arterial pressure (15.5) 
right atrial pressure (0.0) 

pressure caused by compression of interstitial fluid gel reticulum (-5.0) 



PRP- 

PR1 — 

PTC- 

PTS- 

PTT- 

PVG- 

PVO- 

PVS- 

PIO- 

P20- 

QAO- 

QLN- 

QLO- 

QOM- 

Q02- 

QPO- 

QRF*- 

QRN- 

QRO- ; 

QVO - 

RAM*- 

RAR*- 

RBF- 


totai plasma protein (208.0) 

effective right atrial pressure ( 0 . 0 ) 

interstitial fluid colloid osmotic pressure (4.1) 

solid tissue pressure ( 7 . 0 ) 

total tissue pressure ( 1 . 0 ) 

venous pressure gradient (14.6) 

muscle venous Pq 2 (40.0) 

average venous pressure (3.8) 

tissue PO 2 e ffective in oxygen utilization ( 8 . 0 ) 

muscle cell p 02 effective in depressing rate of metabolism ( 8 . 0 ) 

blood flow in the systemic arterial system (5.0) 

basic left ventricular output (5.0) 

output of left ventricle (cardiac output) (5.0) 

total volume of oxygen in muscle cells (2400.0) 

non-muscle total cellular oxygen (2400.0) 

rate of blood flow into pulmonary veins and left atrium (5.0) 

feedback effect of left ventricular function on right ventricular function ( 0 . 6 ) 

basic right ventricular output ( 5 . 0 ) 

actual right ventricular output ( 5 . 0 ) 

rate of blood flow from veins into right atrium (5.0) 

basic vascular resistance of muscles (96.3) 

basic resistance of non-muscular and non-renal arteries (30.52) 

renal blood flow ( 1 . 2 ) 



RCD- 


RC1- 

RC2- 

RDO- 

REK*- 

RFN- 

RKC*- 

RMO- 

RPA- 

RPT- 

RPV- 

RR- 

RSM- 

RSN- 

RTP- 

RVG- 

RVM- 

RVS- 

$R*- 

SRK*- 

STA*- 

STH- 

SVO- 


rate of change of red cell mass (0.0) 
red ceil production rate (0.000011) 
red cell destruction rate (0.000011) 

resistance of diffusion of oxygen from capillaries to cells (555.0) 

fraction of normal renal function (1.0) 

renal blood flow if kidney is not damaged (1 .2) 

rate constant for red cell destruction (5.8 x 10“^) 

rate of oxygen utilization by tissues (60.0) 

pulmonary arterial resistance (1.6) 

pulmonary vascular resistance (3.0) 

pulmonary venous resistance (1.4) 

renal resistance (84.0) 

vascular resistance in muscle (96.5) 

vascular resistance in non-muscle, non-renal tissues (32.5) 
total peripheral resistance (19.4) 
resistance from veins to right atrium (0.72) 

depressing effect of pulmonary arterial pressure on right ventricle (1 .0) 

venous resistance (2.8) 

intensity factor for stress relaxation (0.5) 

time constant for stress relaxation (33.0) 

overriding value of overall activity of autonomic system AU (0.0) 
effect of tissue hypoxia on salt and water intake (1 .0) 
stroke volume output (0.07) 
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T- total fime elapsed 

TRR- tabular reabsorption rate (0.124) 

TVD- rate of drinking (0.001) 

TVZ- combined effect of tissue ischemia and central nervous stimulation on thirst 
and drinking (0.001) 

T 1 ~ total time elapsed on previous step 

U*- damping factor for QPO (4.0) 

VAE- excess volume in systemic arteries that causes stretch of arterial walls (0.354) 

VAS- volume in systemic arteries (0.85) 

VB- blood volume (5.0) 

VBD- volume correction factor added to systemic circulation to allow for updating 

blood volume (0.0) 

VEC- exrraceiluiar fluid volume (15,0) 

VG- volume of interstitial fluid gel (11.5) 

VGD- rate of change of tissue gel volume (0.0) 

VIB- blood viscosity, ratio to that of water (3.0) 

VIC- cell volume (25.0) 

VID- rate of fluid transfer between interstitial fluid and cells (0.0) 

VIE" portion of blood viscosity caused by red blood cells (1-.5) 

VIF-- volume of free interstitial fluid (0.55) 

VIM- biood viscosity, ratio to normal (1.0) 

VLA- volume in left atrium (0.40) 

VLE- excess volume in left atrium causing stretch of left atrium and pulmonary veins- (0.0) 
VP- plasma volume (3.0) 
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VPA- 

VPD- 

VPE- 

VPF- 

VRA 

VRC- 

VRE- 

VTC- 

VTD- 

VTL- 

VTS- 

VTW- 

VUD- 

VVE- 

VVR- 

VVS- 

VV6- 

VV7- 

VV8- 

VV9*- 

V2D + - 

X*- 


volume in pulmonary arteries (0.38) 
rate of change of plasma volume (0.0) 

excess volume in right atrium causing stretching of the right atrium (0.07) 
pulmonary free fluid volume (0.012) 
right atrial volume (0.1) 
volume of red blood cells (2.0) 

excess volume in right atrium causing stretching of the right atrium (0,0) 

rate of fluid transfer across systemic capillary membrances (0.0) 

rate of volume change in total interstitial fluid (0.0) 

rate of systemic lymph flow (0.003) 

total interstitial fluid volume (12.0) 

total body wafer (40. 0) 

rate of urinary output (0.001) 

excess venous vascular volume before stress relaxation correction (0.33) 
volume of blood in veins at zero venous pressure (2.95) 
venous vascular volume (3.0) 

rate of change of vascular stress relaxation effect (0.0) • 
increased vascular volume caused by stress relaxation (0.0) 

excess volume of blood in the systemic veins after stress relaxation correction ( 0 . 31 ) 
reference venous vascular volume (3.159) 

resistance factor which converts pressure drop to rate of change of tissue gel 
volume (0.02) 

damping factor for QVO (10.6) 
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Y*- 

2 *- 

Zl*- 

Z3*- 

Z4*~ 

25 *- 

26 *- 

27 *- 

Z8*- 

Z10*- 

Zll*- 

212 *- 

Z13*- 


damping fcctor for DAU (1.0) 

damping factor for AH, DAU, DFP, DLP, DPC, DPL, OFN, GPD, KCD, NOD, 
POA, POB, PPD, TVD, VID, VIC, VTL, VUD, VV6 (1.0) 
damping facror for VPD (1 .0) 
damping factor for VP (4.0) 

time constant used to calculate non-muscle cell total cellular oxygen (10.0) 

time constant used to calculate volume of oxygen in muscle cells (10.0) 

damping factor far OVS (5.0) 

damping factor for OSV (5.0) 

time constant of autonomic response (1.0) 

constant used to calculate effect of .tissue hypoxia on salt and water intake (8.25) 
constant used to calculate effect of tissue hypoxia-on salt and water intake (4.0) 
constant that converts exercise activity to autonomic stimulation-'! .24) 
constant used in calculating hearr hypertrophy (0.625) 
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GLOSSARY OF SOME OF l/O VARIABLES USED IN DEMAND MODE 


•IEXECI 

IEXECN 

IIMS(6,2) 


IPLTBT 

ISTEP 

ITME 


IVC 

JTSTEP (100,5)- 


KST0PP 

PL0TBF ( 101,6) - 

PL0TPT 
PLOTTM 
PPARS (6,3) 


RUESTP 

TIMEC 

TIMEP 

TL0TBF. (lOl) - 
VGHGS(200,2) - 


last EXEC parameter for a 'Run Step’ ('RUNb' or 1 PL0T ' ) . 
subroutine TTY0UT will set this to 1 when finished 'Run Step' .. 

1st subscript is 6 possible variables that may be plotted 
with dashed lines . 

2nd subscript is dashed image on, and no. rasters left -in image, 
pointer into PLOTBF (l01,X). 

■pointer into JTSTEP (100,X) 

(fig) 1= 1st. time TTY0UT called. 

2= 1st. time TTYOUT called after called TTYIN (for 
2nd-on 'Run Steps ' ) . 

0= all other times . 
pointer into VCHGS (200, X) 

1st. subscript is 100 possible 'Time Steps' for a 'Run Step'. 

2nd. subscript: l=Ending time for 'Time ‘Step'. 

2=Index of time unit. 

3=Eo. chgs. in VCHGS(200,2) associated with 
this 'Time Step'. 

4-EXEC parameter . 

5=No'. time units for printout 

(fig) 1=TTY0UT finished a 'Run Step' (used by PL0T33 when 
running the PL0T option. 

1st subscript is buffer to save plot data. 

2nd subscript is the 6 variables available for plotting. 

Increment of time (in mins) for buffering into PLOTBF(-101,6) . . 

Next time (in mins) to put data into PL0TBF(lOl,6) and TL0TBF(lOl). 
graph commands . 

1st subscript is the 6 possible variables for graphing. 

2nd subscript: l=which graph to plot on. 

2=High Y limit . 

3=Low Y limit. 

Total mins, in 'Run Step'. 

Next time to compute to (mins . ) . 

Next time to printout (mins . ) . 

The mins, when data was put into PL0TBF(l01,6) . 

1st. subscript is up to 200 chgs. possible for a 'Run Step'. 

2nd subscript is the subscript of variable to be changed, 
and the new value . 
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APPENDIX B 

IBITIALIZIB& GAEDS FOE 
INPUT VAEIABLES 






location 




Card Variable 

In Array 

Variable 



Col. 1 Value 

a(4oo) 

Symbol 

o o a o ci l 

000 

. n 

1 

T 

000002 

000 

. 7?660bfc. 0(i 

2 

I 

-000003 

ono 

»7o999lE-03 

3 

V 8 0 

ooooo^ 

oao 

• 327092ET 01 

1 

VVS 

000005 

000 

.37995ZE 00 

5 

VPA 

000006 

000 

* 8 5061 1 E 00 

6 

VAS 

000007 

000 

• I0O8 3&E 00 

7 

VLA 

OOOOOB 

000 

.1Q0312 E 00 

8 

VRA 

000009 

000 

• 3s5611 E 00 

9 

VAE 

0OOO1 0 

oao 

. 1 noielE os 

1 0 

PA 

00001 1 

000 

•998198E OD 

1 1 

PAM 

000012 

000 

.990992E.00 

12 

LVM 

000013 

000 

.3ql885 E ;03 

13 

VRE 

00001*1 

000 

•683770E-01 

11 

PRA 

00001 5 

ono 

. 5 1 61 1 Oe 01 

15 

ORN 

000016 

000 

•737Q16E-01 

16 

VPE 

000017 

000 

.153Sl5 E 02 

17 

PP A 

00001 8 

000 

• 3992 1 I E 00 

18 


Ooooi 9 

000 

. 1 5826’ E 0 | 

?0 

RP A 

000020 

000 

.990897 E 00 

21 

RVM 

000021 

oao 

,831793 E ;03 

22 

VLE 

000022 

000 

• 6 31 7 9.3£f Q 1 

23 

PIA 

000023 

000 

• 5 [ 7 1 0*(E 01 

21 

QLN 

00002 H 

000 

• 9 96877 E OD 

26 

A IB 

000025 

ono 

• 1 39171E 01 

27 

RP V 

000026 

000 

.2977l3 E 01 

26 

RPT 

000027 

000 

• 1 527 1 OE 02 

29 

PGL 

000028 

000 

»'5i3210e 01 

30 

QPO 

000029 

000 

.32251**E 00 

32 

WE 

000030' 

QOO 

•3t 187 3 E 00 

33 


000031 

ODO 

• 378027 E 01 

31 

PVS 

000032 

000 

.721286 E 00 

36 

RV6 

000033 

000 

• 5 1 37oB E 01 

37 

QVO 

000031 

000 

..99992**E 00 

3B 

AVE 

000035 

• 000 

■ 2 1 2000E-0 1 

39 

CN2 

000036 

000 

•366763 E 00 

10 

CM3 

000037 

oao 

• 27633*tE 01 

11 

R VS 

000030 

000 

.96*1003e 02 

12 


000039 

000 

• 1 95263 E 02 

93 

RTP 

OQOOIO 

000 

• S l 27plE 01 

19 

QAO 

0000*1 1 

000 

• 5 1 38lO E Oi 

15 

SRO 

0000*12 

OOQ 

♦ 5l33.56 E _01 

16 

QLO 

0000*13 

oao 

~.l00126 E .01 

17 

D VS 

00001*1 

000 

• 59 96 1 1 E ~02 

10 

DPA 

000015 

ono 

.652361E-02 

19 

OAS 

000016 

000 

US791E-02 

50 

OLA 

000017 

000 

1 3191S E _02 

51 

DRA 

000018 

OOP 

. 10007*tE 03 

52 


000019 

000 

•000000 

53 

AUC 

000050 

000 

•998959 E 00 

59 

AUB 

000051 

000 

•000000 

55 

AUN 

000052 

000 

• 9981 3 1 £. 00 

56 

ro 

— q 

000053 

000 

-.7B1352E-06 

5a 

AUB 

000051 

000 

• 99 813 1 E 00 

59 

DAU 



Variable 

Symbol 


Location 

Card Variable In Array 
Col. 1 Value A(400) 


Oonoss 

000 

.9996228 00 

6n 

A U J 

000056 

ono 

.999622E 00 

61 

AU 

000057 

000 

37890UE-03 

62 

AUO 

000058 

000 

,99988<>E 00 

63 

AUH 

000059 

000 

.999670E DO 

66 

A U H 

000060 

000 

-* 1557O0E-O2 

67 

AU9 

000061 

000 

.S5S132E 00 

68 

V IF 

000062 

000 

.825000E 01 

69 

P01 

000063 

000 

• 1 0 l 296g Ql 

70 

PTT 

000069 

000 

♦ 69730 1 E 01 

71 

PTS 

000068 

000 

-.59600SE 01 

72 

PIF 

000066 

000 

. 1690l7 E 02 

73 

CPI 

000067 

000 

»9 l QQ92 e 01 

79 


• 000068 

000 

•701829E 02 

75 

CPP 

000069 

000 

.280732E 02 

76 

PPC 

000070 

ooo 

tl97303£ 02 

77 

PV6 

000071 

000 

. lasio^e 02 

78 

PC 

000072 

ooo 

.988332 E op 

79 

PCD 

000073 

ooo 

.391832E-02 

80 

VTC 

000078 

000 

*83391 1 E 00 

81 

PLO 

000075 

ooo 

*33336‘fE-02 . 

82 

VTL 

00007.6 

ooo 

«. I928l0£„03 

83 

VTD 

0OOQ77 

ooo 

-.825969E-03 

89 

VPD 

000078 

ooo 

*5h6352e-0 1 

85 

PPL 

000079 

ooo 

*595903 E -0 t 

87 

DP.C 

000080 

ooo 

-*9985B5e-09 

88 

OP 1 

000081 

ooo 

*696903e»02 

90 

DIP 

000082 

ooo 

’.999707e 01 

92 

CHY 

000083 

□ 00 

-.998773E 01 

93 

PRM 

000089 

ooo 

• 1 97 88 3e 01 

98 

PGR 

000085 

ooo 

• 12366.De 02 

95 

CPG- 

000086 

ooo 

*9o9933e 01 

96 

PGP 

OOOQ87 

ooo. 

•163973E 02 

98 

PGX 

000088 

ooo 

• 6Q78 1 *e 01 

99 

PGC 

000089 

ooo 

-f.397976£ w 01 

1 □□ 

PGH 

000090 

□ 00 

1 5 1 ObSeZo3 

102 

VGD 

000091 

ooo 

. 1 1 52 1 ®E 02 

103 

VG 

000092 

ooo 

-*977273£-09 

107 

GPO 

000093 

QO0. 

*322779 E 02 

1 08 


000099 

ooo 

.88937&E 02 

109 

RR 

000Q95 

ooo 

• l 1 7 9 9 Ql 

1 10 


000096 

000 

*3807Q5e 02 

1 1 1 

APD 

. 000097 

ooo 

*6ZJ lQde.02 

1 12. 

GLP 

000098 

ooo 

' .16036’E 02 

1 13 

PPL 

000099 

ooo 

• l 25 020 £ 00 

119 

GFR 

000100 

ooo 

• 1 2*»0 1 *»E 00 

115 

T RR 

Q00101 

ooo 

*lOO60’E-02 

116 

VUD 

oon 1 02 

ooo 

•toooooe oi 

117 

REK 

000 1 03 

ooo 

.102388E 00 

118 

NOD 

000109 

ooo 

1 639 1 9£-03 

l 1 9 

NED 

000105 

ooo 

* 2 1 38q3e QH 

120 

NAE 

000106 

ooo 

.15Q960E 02 

121 

VEC 

000107 

ooo 

,99924Ue 01 

122 

CKE 

000 1 08 

ooo 

♦2785 l Oe-02 

123 

KOD 

000 l 09 

ooo 

*359'899e 09 

1 25 

K I R 

0001 10 

ooo 

• 1 990 l 7 E 00 

126 

K IE 

000 1 1 1 

ooo 

. 193723E-Q2 

127 

KCD 



Location 

Card Variable In Array Variable 




Col. 1 Value 

AfjUJQ.)... 

Svmb 

0001 12 

ooo 

1 92?32e-02 

1 28 

KED 

0001 13 

ooo 

. 1 92073 e 03 

1 29 

CK I 

000111 

000 

♦ 1 9 2 1 OOE 03 

130 

CNA 

. 0001 15 

000 

-.261 795E-01 

131 

CCD 

000116 

ooo 

-.261795e_03 

132 

V10 

0001 17 

ooo 

.751092e 02 

133 

K£ 

0001 16 

ooo 

.359879 e 09 

1 39 

Kl 

0001 19 

ooo 

•299777E 02 

135 

VIC 

0001 20 

ooo 

,3j6392e 01 

136 

I 1 

000121 

ooo 

•lOOOOOE 01 

138 

z 

000122 

ooo 

• 1 1 590®E-02 

191 

TVZ 

000123 

ooo 

•lOOOOOE 02 

194 

X 

000129 

ooo 

• 3QQ000E-02 

1 45 

12 

000125 

ooo 

.6H3770E-01 

146 


000126 

QOO 

• 1 2077 1 E 02 

147 

VTS 

000127 . 

ooo 

.295891E 0! 

148 

VP 

000128 

ooo 

♦2o7716e 03 

149 

PRP 

000129 

ooo 

.9J051 lE 01 

150 

IFP 

000130 

ooo 

. 1 9 29B0e 03 

151 

GPR 

000131 

ooo 

.98Q39SE 00 

154 

AMR 

000132 

ooo 

.997992e 00 

1SS 

AMP 

000 1 33 

ooo 

.9fil239£ Go 

156 

AMI 

000139 

DOO 

.9B190*E 00 

157 

AMC 

000135 

OOO 

,909769e 00 

1 6 1 

AM 

000136 

OOO 

« 9 9957 3e 01 

162 

CNE 

000137 

ooo 

.2OO0O0E 00 

1 63 

A GK 

000138 

ooo 

.998909E 00 

1 64 

ANP_ 

000139 

ooo 

,998909£ 00 

1 65 

an r 

000190 

ooo 

.99777 Oe 00 

166 

ANC 

00019! 

oao 

.100352E 01 

1 7 n 

A NM 

000192 

ooo 

.500269E 01 

171 

VB 

000193 

ooo 

. 9 q.8 9 9 7 £ 02 

173 

HM 

000199 

ooo 

• 1 5503®E .01 

1 75 

VIE 

000195 

ooo 

,3o583®e 01 

1 76 

via 

. 000196 

ooo 

.101935 E 01 

l~77 

VIM 

000197 

ooo 

, 1 1 8528e109 

178 

RC2 

0D019B 

000 

• 255528.E QQ 

179 

P02 

000199 

ooo 

.SsOOOOe-OS 

180 

RKC 

000150 

ooo 

. 1 1 8565e«Q9 

181 

RC1 

000151 

ooo 

.37Q999e-09 

182 

RCD 

000152 

aoo 

.209359E 01 

103 

VRC 

000153 

ooo 

« 3 ? 6 05 1 E 02 

169 

RSN 

000159 

ooo 

_.,2028QlE 03 

185 

OVA 

000155 

ooo 

,295660e 01 

136 

BFN 

000156 

ooo. 

. 1 7 995 2e 0 3 

187 

DOB 

000157 

ooo 

,999993e 00 

188 

AOM 

000158 

ooo 

.799999E Q1 

189 

P10 

000159 

□ 00 

,695997 E 00 

1 ?n 

05V 

000160 

ooo 

,7?9999e 01 

I 9 | 

POT 

000161 

ooo 

-.262199e 00 

192 


000162 

ooo 

. 98927 1 E 00 

193 

POB 

000163 

ooo 

.984296e 00 

199 

A R 1 

000,169 

OCiO 

.923107E 00 

195 

AR2 

OOo'l 65 

ooo 

.979047E QQ 

196 


000166 . 

ooo 

.975063e 00 

197 

A S3 

000167 

ooo 

.886225e QQ 

198 

ARM 

Ooo l 68 

oao 

. 3q 5427 g 0 1 

199 



to 


VO 



DD0169 

000 

000170 

000 

000171 

000 

000172 

000 

000173 

000 

000179 

□ 00 

000175 

000 

000176 

OOQ 

000177 

000 

000178 

000 

000179 

000 

00D1 80 

000 

000 181 

000 

000182 

000 

000183 

000 

000189 

000 

000185 

000 

000186 

000 

000 1 8 7 

000 

000 188 

006 

000189 

GOO 

000190 

000 

000191 

000 

000192 

000 

000193 

000 

000199 

000 

000 195 

000 

000196 

000 

000197 

DOO 

000198 

000 

000199 

000 

000200 

000 

000201 

00O 

000202 

000 

000203 

000 

000209 

000 

0002q5 . 

000 

00O2oA 

ODD 

000207 

000 

000208 

000 

000209 

OQO 

000210 

000 

000211 - 

000 

000212 

000 

0002|3 

000 

000219 

000 

000215 

000 

000216 

000 

0002J7 

000 

000216 

000 

000219 

000 

000220 

OQO 

00022 1 

000 

000222 

000 

000223 

00 0 

000229 

000 

000225 

000 


Card Variable 
Col. 1 Value 

.I?BO20e 00 
.305320E 01 
. f 02326 e 01 

• l 0 1 390 e 01 
.600000E 01 
.25D00QE 01 
. ln0638E-Q3 

• 1 0680 1 E-Q 1 

• 1 159Q8e-Q2 

• 90029 *?£ 02 
•IOOOOOe 01 
.lOODOOg 01 
.IOOOOOe 00 
.500000E 00 
•299908E bl 
.3D5200E 02 
.825Q00E-Q1 

.200000E 00 
.300000E 0-1 
.500000E-03 
. IOOOOOE 01 
.IOOOOOE 01 
•700000E-02 

• 1 60000E-06 
•300000E 01 

• 8 |0D00e 02 
.970000e-03 
.700000E-02 
.570000E 02 

• S80000E-02 
.6O0000E 02 

• 1 BOQOQe 02 

.600000E-01 

.3000D0e 00 
.ioooooe qi 
.200000E 02 
. 1 15200E OS 
. 1 39QD0e 03 
•IOOOOOE 01 

.70QQ0QE 01 

.330000E 02 
•301 OOOe 00 

• 2oOQOO£-0 1- 
. IOOOOOE 01 

9 OOQDOe 01- 
.IOOOOOE 02 
.IOOOOOE 02 
•500QD0E 01 
.5000DOE 01 
♦IOOOOOE 01 

. 900000e 02 

.533330E 00 
.397379e 02 
•3000DOe 00 
« B l 093 9 E 03 
,290073 e 09 
. 1 1 7996e 01 


location 

In Array Variable 


200 

GFN 

203 

AH 

209 

AHC 

208 

AHM 

209 

CNY 

210 

CNX 

2 1 >1 

VV6 

215 

VV7 

216 

TVD 

217 

VTW 

218 

HSR 

219 

HSL 

220 

NIO 

221 

5R 

222 

VVR 

' 223 

RAR 

229 

CV 

225 

CN7 

226 

AUX 

227 

AUK 

228 

AU2 

229 

Y 

- 230 

CFC 

231 

CPK 

232 

PCE 

233 

CPF? 

239 

LPK 

235 

OPO 

236 

HYL 

237 

KID 

238 

AMT 

239 

ANT 

290 

POK 

29 l 

PON 

292 

A 1 k 

293 

A2K 

299 

A3K 

295 

CNR 

296 

CNZ 

297 

AHK 

298 

SRK 

299 

V 9 

250- 

V2D 

251 

Z1 

253 

Z3 

259 

Z 9 

255 

Z5 

2S6 

Z6 

257 

Z7 

258 

za 

259 

HMK 

260 

HKM 

261 

POV 

262 

POZ 

263 


269 

002 

265 

RBF 




LO 

O 



Location 




Card 

Variable 

In Array 

Variable 



-Col- 

JL Value 

A(4oo’> 

Symbol 

Qno 2 26 

000 


.17V990E 03 

266“ 

M 0 2 

000227 

ooo 


. 9 2 1 35 5e Oo 

267 

POA 

000223 

000 


.464Q00E-04 

266 

POV 

000229 

ooo 


* 1 QQ340E 01 

269 

ANU 

000230 

000 


. 4ooOOOg 02 

270 

POR 

000231 

ooo 


•500000E-Q1 

271 

GF2 

000232 

ooo 


.IOOOOOe 01 

272 

HMD 

000233 

ooo 


.4986 tOE-02 

273 

OHM 

000234 

ooo 


« 79944 7e 01 

274 


000235 

ooo 


•IOOOOOe 02 

275 

13 

000233 

ooo 


•40000QE 01 

276 

U 

000237 

ooo 


•iOOOOOE-OJ 

277 

VP1 

000238 

ooo 


.00 

27B 

T 1 

000239 

ooo 


»10D033e"01 

279 


000240 

ooo 


.5O00D0E 01 

260 

GF-* 

000241 

ooo 


,999622e 00 

281 

AUP 

000242 

ooo 


• 3q00D0e 00 

282 

AUV 

000243 

ooo 


.250000e 00 

284 

AUY 

000244 

OOP 


,3oOOOOe 01 

285 

OUT 

000245 

ooo 


.000000 

286 

DSP 

000246 

ooo 


• I 3675‘»E-01 

287 

AHZ 

000247 

ooo 


• 1 2607 6e«D 1 

288 

AH Y 

000248 

ooo 


»9929J4 E . 00 

289 

OSA 

000249 

ooo 


.8584V8E 01 

290 


000250 

ooo 


•2S2523E 02 

291 

CPN 

000251 

ooo 


. 1 1 3GQ9e 02 

292 

POS 

000252 

ooo 


. 7 245Ci6e-03 

293 

PLF 

000253 

oao 


.2o4689£_oi 

294 

PPO 

000254 

ooo 


•943440E-02 

295 

PPM 

000255 

ooo 


. 1 1 034&E-Q 1 

296 

PPD 

000256 

ooo 


-« 369 5 53 £ — 0 3- 

-29-7 

PFI 

000257 

ooo 


• 1 09406£-02 

298 

OFP 

000258 

- 000- 


. 104V12E-01- 

299 

VPF - 

000259 

000 


. 36 3250e 00 

300 

PPR 

000260 

-OOO 


,6846q3e Qi 

301 

PMC 

000261 

OOO 


.723762E 01 

302 

PMS 

000262 

000 


• 4S 8 6 8 5 E 01 

303 

P HP 

000263 

□ 00 


. 72 1 2 1 8£ 02 

304 

HR 

000264 

ooo 


. 3OOD00e-Q3 

305 

CPF 

000265 

ooo 


.695544e 01 

306 

PCP 

000266 

. ooo 


.IOOOOOE 04 

307 

DAI - 

000267 

ooo 


.696403e-02 

308 

DLZ 

0DO268 

aoa 


.1023B8E 00 

-34 2 

NOZ 

000269 

000 


• 1 0077 I E 01 

315 

HPR 

000270 . 

QOO 


.1OO480E 01 

- 316 

HPL 

000271 

ooo 


.102224E 01 

317 

STH 

000272 

ooo 


•IOOOOOE 01 

318 

ALO- 

000273 

ooo 


.IOOOOOe 01 

319 

EXC 

000274 

ooo 


.180000E 03 

32n 

0 2M 

000275 

ooo 


» 1 00 l 9 1 E 03 

321 


000276 

ooo 


• 1 5356 I E 02 

322 


000277 

ooo 


.7 | 1792E-Q1 

323 

SVO 

000278 

ooo 


.2|Q000£ 00 

324 

AUL 

000279 

ooo 


« 3 1 590Qe 01 

325 

VV9 

000280 

ooo 


« 1 500QOe OQ 

326 

02A 

0002 a 1 

ooo 


.370620e-01 

32R 

EXE 

000282 

ooo 


.ISOOOOe 01 

329 

A RF 



Location 

Card Variable In Array Variable 
Col. 1 Value A( 4oo) Symbol 


000203 

000 

,6oooooe 

00 

330 

8RP 

000264 

000 

. 97 1 94*E 

02 

331 

RSM 

000205 

000 

,?91620E 

00 

332 

6FH 

000206 

00 0 

.963000E 

02 

333 

RAM 

000287 

GOO 

•697390E 

00 

334 

ovs 

0002BB 

000 

»3?84B9 E 

02 

335 

PVO 

00028? 

000 

» 5?983 3e 

02 

336 

RMO 

00029D 

000 

« 23998^£ 

04 

337 

QOM 

000291 

000 

«798737e 

01 

338 

PMO 

000292 

000 

,79B737e 

01 

339 

P20 

000293 

000 

.599966E 

02 

340 

MMO 

000294 

000 

-« 151 197e 

00 

341 

POO 

000295 

ooo 

.987908e 

00 

342 


000296 

000 

.987945E 

00 

343 

AMM 

000297 

000 

= t ooooOe 

04 . 

344 

-A 4K 

000298 

000 

•BQODOOe 

-01 

345 

POM 

000299 

OOQ 

• 6OQOO0e 

02 

346 

OMM 

000300 

000 

« 7 9 8 7 37 E 

01 

347 

PM 1 

00030 1 

ooo 

• 1 ooooOe 

.02 

348 

PM3 

000302 

ooo 

-♦ IOOOOOe 

01 

349 

PM4 

0003q3 

ooo 

.3O0OO0E 

01 

350 

E X 1 

00030? 

ooo 

• l 22Q00£ 

03 

353 

PM5 

000305 

000 

.250000E 

04 

354 

PKI 

000306 

ooo 

•825000E 

01 

356 

210 

000307 ' 

ooo 

.rooooQe 

01 

357 

Z 1 1 

000308 

ooo 

. 1 24D00E 

01 

358 

2 12 

oooSo 9 

000 

•625D00e 

00 

389 

.2 13 

00031 0 

ooo 

. soooooe 

03 

363 

PK2 

0003 1 1 

000 

. 200000E 

01 

364 

PK 3 

000312 

ooo 

.000000 


365 

FIS 

000313 

000 

.oooooO 


366 

STA 

0003 1 9 

ooo 

.lootalE 

03 

367 

PAR 

000315 

ooo 

.000000 


368 

GBL 

000316 

ooo 

-.200Q0QE 

00 

369 

ANY 

000317 

ooo 

. 9OOOO0E 

00 

370 

ANZ 

0003 1 8 

ooo 

•300000E 

.03 

372 

ANV 

000319 

ooo . 

.ooooao 

„ 

373 

ANW 

00032D 

000 

. iooooOe 

01 

375 

A U Q 

000321 

DOD 

•?99622e 

DO 

376 

AUR 

000322 

ooo 

• iooooOe 

01 

377 

AUS 

000323 

ooo 

. 9 ooooOe 

02 

379 

HI 

000329 

DO0 

. 9 OQOOOe 

01 

380 

A2 

000325 

ooo 

. 352000E 

1.02 

381 

A3 

000326 

ooo 






Bend 

bend ignored - in control mode 
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APPENDIX C 


EXAMPUE 

OF 

BATCH OUTPUT 



EXP 1313 


28 DAYS 

ORlG.PARS, 

28 DAYS 

C V « « 06 20 

DAYS ORIG. 

i3B0!33'59B?0fll® 





DAYS 

VRC 

VP 

Q02 

PRA 

HM 

PyS 

POT 

V TIN 

VEC 

VIC 

0 

2.0836 

2.9568 

2900.7300 

.0689 

90.8897 

3.7803 

7,9984 

80.0298 

1 5.0460 

24*9777 

1 

2,0836 

2.9575 

2800.9699 

.0612 

40.b6d9 

3.7767 

7,9935 

80*0424 

15.0458 

24.9922 

2 

2,0837 

2.9578 

2800,9953 

.0610 

80,0621 

3.7765 

7.9936 

80.0425 

15.0463 

24.9923 

3 

2.0837 

2,9575 

2800,5126 

.0612 

40.8639 

3.7762 

7,9937 

80.0423 

15.0483 

24.9934 

* 

2.0838 

2,9576 

2900,5329 

.0575 

40,8673 

3.7747 

7,9938 

80.0389 

15,0525- 

24,9942 

5 

2.0838 

2.9572 

2900,5952 

.0605 

90.8662 

3.7759 

7,9938 

80.Q427 

15.0469 

24.9929 

6 

2.0839 

2.9575 

2900,5611 

.0610 

40.0661 

3.7751 

7,9939 

80*0430 

15.0497 

24.9937 

? 

2.0839 

2,9570 

2800.5919 

,0603 

40.6685 

3.7757 

7,9938 

90.0426 

15,0458 

24,9923 

8 

2.0839 

2.9571 

2900.5390 

.0593 

40,8703 

3,7750 

7,9930 

80.0909 

15.0484 

24.9930 

f 

2.0880 

2,9578 

2900.6808 

.0569 

40,b7i9 

3.7749 

7,9983 

90.0386 

15,0524 

24,9942 

fa 

2.0880 

2.9577 

2900.5998 

,0559 

40,8736 

3,7732 

7.9938 

80*0429 

15*0479- 

24.9955" 

1 1 

2.0881 

2.9572 

2900 « 53 1 8 

.0616 

90.870’ 

3.7761 

7,9938 

80.0423 

15,0486 

24.9940 

12 

2.0881 

2.9560 

2900,5769 

.0592 

80 » 87 ] 9 

3.7747- 

7.9939 

90.0438 

J5.0464 

15.0477 

24.993J 

1 3 

2.0881 

2.9567 

2900^5339 

» 05? 1 

80,0762 

3.7798 

7.9938 

90.0399 

24.9922’ 

18 

2.0892 

2.9569 

2900.6169 

.0579 

40,8799 

3.7736 

7.9981 

80.0907 

15*0491 

24.9929 

IS 

2.0882 

2.9560 

2900,5577 

,0590 

90.8798 

3.7755 

7,993’ 

90.0898 

15,0483 

24.9960 

1 6 

2.0892 

2,9563 

2900.5063 

.0500 

90.8781 

3.779J- 

7,9937 

90.0916 

15.0435- 

24 . 9897 

n 

2.0893 

2.9566 

2900^6139 

.0592 

40.0774 

3.7791 

7 , 99*(0 

90.0388 

15.0469 

24.9902 

18 

2.0993 

2.9567 

2800,5073 

.0595 

40,8760 

3.7795 

7.9937 

90.0990 

15,0484 

24.9949 

19 

2.0993 

2.9560 

2800,5922 

.0582 

40,8778 

3.7743 

7,9980 

90.0422 

15.0487 

24.9945 

20 

2.0983 

2,9563 

2900,5973 

.0601 

40,8771 

3.7749 

7.9980 

90.0477- 

15.0466 

24.9949 

21 

2,0899 

2.9567 

2800.6230 

.0501 

40,8788 

3.7735 

2.9981 

90,0911 

15.0482 

24.9922 

22 

2.0999 

2.9561 

2900.5155 

.0600 

40,8793 

3.7747 

7,9937 

80.0472 

!S;p463’ 

’ 24. ’946 

23 

2,0899 

2.9570 

2900 ^ 5920 

.0599 

40,8824 

3.7727 

7,9980 

80.0399 

15,0509 

24.9948 

29 

2.0999 

2.9571 

2800,7300 

.0607 

40,8758 

3.7759 

7,9984 

90.0991 

1-5,0490 

24.9954 

28 

2.0995 

2.9565 

2900,6992 

.0583 

40,8796 

3.7793 

7.9982 

90.0931 

15.Q461 

24.9935 

26 

2,0995 

2.9562 

2900,5698 

.0583 

40,8896 

3.7745 

7.9939 

90.0915 

1 5*0475 

24.9941 

27 

2.0995 

2.956J 

2900,6052 

.0601 

40.8807 

3.7749 

7.9980 

90,0473 

15.0462 

24,9949 

28 2.0445 -2,9567 

A T 26 DAYS CV CHANGED FROM 

2800.5719 

.002 

.0609 
to ; 

. 40.8798 
060 

3.7752 

7.9939 

40.0438 

' 15*0486 

24*9956 

DAYS 

VRC' 

VP 

802 

PRA 

HM 

P V S 

POT 

V TW 

VEC 

VIC 

29 

2.0996 

2.7650 

2398.9299 

“,038o 

92,5172 

3.6629 

7,98*8 

39.7815 

14.7918 

14,8376 

24.9921 

30 . 

2,0996 

2.2710 

2901,2961 

-.0J06 

92,8508 

3,6796 

7.9961 

39.8287 

24.9858 

31 

2.0995 

2.9729 

290 1 .3871 

-.0069 

42,9320 

3,6828 

7.9966 

39,8316 

14,8409 ■ 

24,9855- 

32 

2.0999 

2.7738 

2901 ,3377 

-.0099 

42,8267 

3.6839 

7,9965 

39.6307 

14,8419 

24.9854 

33 

2.0882 

2.7730 

2901.2828 

-.0077 

42, 8230 

3.6897 

7.99*3 

39,0329 

14.841? 

24,9855 

38 

2.0881 

2, #789 

2901 .2930 

- , D2Q3 

42, h3q7 

3,6766 

7,99*1 

39,8290 

14,846) 

24.986Q 

35 

2.0990 

2,7796 

2901.2106 

-.0152 

42,^253 

3 ,6800 

’ 7.99*0 

39.8292 

14,8478 

24.9863 

36 

2.0939 

2.7736 

2901 . 1 769 

- , 00 7 9 

42.9185 

3.6892 

7,9959 

39,8343 

14,4495 

24.9857 

37 

2.0939 

2.7780 

2901.1996 

-.0099 

42.8187 

3.6833 

7,9958 

39,8335 

14,8447 

24.9855 

38 

2.0938 

2.7790 

2901,1289 

-.0073 

42.8156 

3.6896 

7,9958 

39,8357 

14,8444 

24.9857 

39 

2.0837 

2.7737 

2801.1156 

-.0081 

42.8151 

3.6837 

7,9957 

39.8357 

14,8458 

24.9858 

80 

2.0936 

2,7781 

280 1,1017 

-.0097 

42.8153 

3.6831 

7,9957 

39,8349 

19.4960 

24,9857 

81 

2.0936 

2.7791 

290 1,0839 

- • Oq7q 

42, t 25 

3.6899 

7,9956 

39,8368 

14,6455 

24.9857 

82 

2.0935 

2.7737 

2901.0838 

-.0009 

42,8124 

3.6832 

7.9956 

39,8369 

14,8469 

24.9059 

83 ' 

2.0935 

2.7796 

2901.0823 

-.0208 

42.8209 

3.6755 

7.9956 

, 39.8332 

14,8497 

24.9863 

88 

2,0839 

2,7790 

2801.0663 

-.0151 

42.8160 ' 

3.6790 

7,9956 

39,0332 

14.8512' 

14,8465 

24.9866 

85 

2.0833 

2.7791 

2801.0573 

- » OQ 7 1 

42,8089 

' 3', 683 6 

7,9955 

39.6380 

24.9857 

86 

2. D933 

2.7798 

2901 .0620 

-.0198 

42.8190 

3.6785 

7.9955 

39.8328 

14.852 1 

24.9864 



47 

2.0432 

2.7747 

2401 ,0565 

-.0189 

42,4162 

3.6757 

7,9955 

39.8343 

14,8512 

24 

,?86S 

h e 

2.0432 

2.7741 

2401.0461 

— . 0 0 8 3 

42, *077 

3.6823 

7,9955 

39.8382 

14.8486 

24 

• ?862 

4? 

2.0431 

2.7750 

2401.0450 

-.0(56 

42,A1 Z 5 

3.6779 

7,9955 

3?. 8352 

14,8522 

24 

,?868 

50 

2.0431 

2.7743 

2401.0367 

— , 0 OS 9 

42.4045 

3.6839 

7,9955 

39.8393 

14,8483 

24 

» ?8 6 j 

51 

2.0430 

2.7744 

2401,0277 

-.0060 

42 , «Q4 1 

3.6839 ‘ 

7,9954 

39.8392 

14.8488 

24 

» ?86 1 

52 

2.0430 

2,7751 

2401.0406 

- . 0 1 25 

42, <*083 

3,67?! 

7,9?55 

39*8353 

14.8587 

24 

, ?84B- 

53 

2.0429 

2.7743 

2401,0222 

- * Oq5 1 

42i 4022 

3,6838 

7,9954 

39.8405 

14.846? 

24 

.?86. 

'64 

2.042? 

2.7751 

2401,0322 

-.0130 

42 , <*07 5 

3.6788 

7,9954 

3?.835| 

1 4,8537 

24.?666 

55 

2.042? 

2,7740 

24D1 ,0280 

-.0062 

42. hoi 6 

3.6829 

7,9954 

39,8405 

14.8502 

24 

.?86 2 

5ft 

A T 56 

2,0428 

DAYS CV 

2.7740 

CHANGED FROM 

2401.0351 

.060 

-•0068 
to ; 

42, <101 2 

082 

3,6829 

7,9954 

39.8407 

14.8504 

24 

.9862 

DAYS 

VRC 

VP 

802 

PRA 

HM 

P V s 

POT 

VTW 

VEC 

VIC 

57 

2.0461 

2.9582 

2404 ^2 603 

,0777 

40,8837 

3.7807 

8,0062 

40,1096 

15, i 161 

24 

,?87l 

58 

2.0458 

2.9542 

2401,1099 

.0634 

40.9140 

3.7716 

7,9957 

90.0511 

1 5,056? 

24 

,9937 

5? 

2.0457 

2.9546 

2400,9280 

,0626 

40,9101 

3.7729 

7,9951 

90.0506 

15,0545 

24 

.9955 

60 

2.0457 

2.9544 

2400,8087 

,0606 

40,9125 

3.7719 

7,99^7 

90.0477 

15,0538 

24 

,9944 

6! 

2.0457 

2.954 1 

2 4 00 i 7‘1 09 

.0629 

40.91 13 

3.7729 

7.99<*4 

40.0526 

15.0513 

24 

• ?94B 

62 

2.0456 

2,9544 

2400,7105 

,0611 

40,910? 

3.7720 

7 , 9?<4 4 

40.0491 

15,051? 

24 

.9942 

6a 

2.0457 

2.9549 

2400.6525 

.0575 

40,9128 

3.7701 

7,99^2 

40*0492 

1-5,0566 

24 

.9975 

64 

2.0457 

2.9544 

2400.6599 

.0596 

40,9121 

3.7719 

7 , 99 1( 2 

40.0485 

15.0524 

24 

.9952 

65 

2.0457 

2.9546 

2400,6045 

.0612 - 

40, 9 l o3 

3.7723 

7 » 99<)0 

40.0482 

15,0524 

24 

,9952 

66 

2.0457 

2.9550 

2400.5542 

.0558 

40,9154 

3.7706 

7,9938 

40.0462 

15,0516 

24 

.9955 

67 

2.0457 

2.9540 

2400.5358 

.0620 

40,911? 

3.773J 

7.9938 

40.0522 

■15.0500 , 

24 

,996q 

68 

2.0457 

2.9548 

2400,7829 

.0660 

40.9045 

3.7797 

7 . 99<| 6 

40*0524 

15.0513 

24 

,9967 

69 

2.0457 

2.9547 

2400, 578D 

,0640 

40,9095 

3.7740 

7.9939 

40.0463 

15,0513 

. 24 

.’950 

70 

2.0457 

2,9551 

2400,5578 

,0567 

40,914? 

3.7708 

7.993? 

40.0446 

15,0503 

24 

.9953 

71 

2.0457 

2.9546 

2400,5894 

♦ 0610 

40.9110 

3 •, 7 7 2 6 

7 , 99<(0 

40*046i 

15,0508 

24 

,9948 

72 

2.0456 

2.9546 

2400,6541 

• 0615 

4D.9123 

3.7729 

7,99^2 

40*0437 

15.0504 

24 

.9931 

73 

2,0458 

2.9545 

2400,6017 

.0601 

40.9113 

3.7725 

7,9990 

40.0473 

1 5. 04? 1 

24 

,9948 

74 

2.0458 

2,9548 

2400.5500 

.0523 

40,9181 

3.7686 

7,9938 

40*0438 

15.0507 

24 

.9943 

75 

2.0458 

2.9546 

2400,5148 

.0597 

40,9133 

3.7724 

7,9937 

40*0454 

1 5 i 050? 

24 

,9954 

76 

2.0458 

2.9550 

2400.6627 

,0538 

40.9161 

3.7701 

7,9942 

40.0470 

15.0505 

24 

,997ft 

77 

2.0458 

2,9552 

2400i 5535 

• 0673 

40,9080 

3.7759 

7.9938 

40.0452 

1 5. Q4?7 

24 

.996ft 

76 

2.0458 

2,9550 

2400.7300 

.0578 

40,9128 

3.7719 

7, 9994 

40.0430 

15,052? 

24 

.9964 

7? 

2.045? 

2 i 9544 

2400,6| 22 

.0592 

40,91 26 

3.7722 

7,9?90 

40.0465 • 

1510472 

24 

,9949 

80 

2.045? 

2,9544 

2400,5106 

.0589 

40,9195 

3.7722 

7,9937 

40,0450 

15,04?3 

24 

.9956 

81 

2.045? 

2,9550 

2400,5413 

.0547 

40,9175 

3.7707 

7, ??38 

40.0433 

15,0483 

24 

.9959 

82 

2.045? 

2.9542 

2400.5168 

.0587 

40,9149 

3.7719 

7,9937 

40,0449 

15.0470 

24 

,994ft 

83 

2.045? 

2.9543 

2400.6868 

.0614 

40.9115 

3.7737 

7.9943 

40.0490 

15.0472 

24 

.9958 

84 

2.045? 

2,9543 

2400,5334 

.0596 

40,9162 

3,7726 

7.9938 

40.0411 

15.0477 

24 

*9932 


\Jl 
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APPENDIX D 

EXAMPLE OF CONVERSATIONAL DEMAND 
INPUT/OUTPUT 



exor 


GUYTON MODEL FROM WHITE 

REFER TO GE-ASG USER GUIDE TIR 741-^0-4004 
CONUERSATIGNAL INPUT <A4> Y,N. . . 


WANT OUTPUT TAPE CA4) Y,N. . . 

>N 

ADO DATA FILECSAOD TTYDAT > . . . 

>SADD TTYDAT 

331 DATA RECORDS INPUT. 

.JNfy 7 NO^ND NAME FOR EXPERIf'ENT a4,15A4>.. 
✓ 131,} TEST FOR TIO 

TYPE SHIFT-OUT (SO) Ah© RETURN — > 
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OUTPUT WANTED OR SAME, STOP C SA4 ) . . • 

00*= HD ME MB. • • 

SYMB VALUE . 

IB . . 

•EXEC PARAMXA4> MORE .■ RUN , PLOT > . . • 

^Sfrr WANTED CHGEO.CA4..2X,F10.4) 00NE= NO MORE CHGES... 

SVMB VALUE . . 

'•CO • ©6 
' fi> .0680 

SVMB VALUE . . . 

pr,T ( rt® UMnimvl-WUR, HUB, SECS. STEP > . . . 

IjSg irtWi.Cfti) CHORE, RUN, PLOT)... 

"iNPUT MUHTED CHGEO.<P4.2X,F10.4) 00*-. MD ** “®... 
SVMB VALUE . . . 

j-pl i 08 

CO 0000 

SVMB VALUE. . . 


3 ■ • 

•HOUR t 6. 

EXEC PAR AM . C A4 > < MORE •■ RUN, PtOT > • • 

>RUN 
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1313 


TEST FOR TIO 


DAY HR 
O 8 
0 1 
0 2 
0 3 

0 
AT 

0 

e 


4 
0 
6 
8 

0 10 
0 Id 
0 14 
AT 0 
8 15 
0 16 
0 17 
0 18 
0 19 
0 20 


MH 

SE 

URC 

0 

0 

2.0436 

3 

48 

2.0436 

0 

47 

2.0436 

1 

55 

2.0436 

3 

23 

2.0436 


DAY, 4 HR, 


o 

<- 

2 

2.0435 


45 

2.0434 

1 

9 

2.0433 

2 

11 

2.8432 

1 

38 

2.0431 


DAY, 14 
3 55 
2 23 
0 41 
0 14 
2 16 
2 25 


HR, 
2 
2 
2 , 
2 
2 , 
2 . 


1 MIN, 

0432 

0434 

0438 

0444 

8450 

0457 


UP 

2.9584 
2.9596 
2.9602 
2.9604 
2.9598 
23 SEC . 
2.9075 
2.8767 
2.8405 
2.8078 
2.7846 
38 SEC .. 
2.7987 
2.7936 
2 7773 
2.7614 
2.7533 
2.7557 


2408 

2406 

2401 

2401 

2481. 

. CU 

2434. 

2436. 

2426. 

2414. 

2404. 

. CU 

2382. 

2364. 

2348. 

2335. 

2327. 

2325. 


Q02 
.7300 
.7849. 
.1457 
.2867 
.3124 
FROM 
.1181 
.0443 
.1819 
.0373 
.9285 
FROM 
.2391 
.8690 
8313 
4866 
2643 , 
5790 


PRA 

.8684 

.0697 

.0588 

.0611 

.0673 

.0825 

.3831 

.2456 

.1583 

.0738 

.0160 

.0680 

.2512 

.2545 

.2752 

.3827 

.3150 

.3209 


HM 

40.8497 

40.8460 

40.8457 

40.8468 

40.8396 

TO 

41.2693 

41.5253 

41.8306 

42.1147 

42.3198 

TO 

42.1992 

42.2404 

42.3863 

42.5329 

42.6129 

42.6856 


I 

.727 

10.003 

2.666 

2.213 

3.928 

0600 

3.132 

2.824 

2.846 

2.847 
2.829 

8800 

10.083 

3.479 

2.710 

2.381 

2.355 

2.494 


HARO COPY WANTED*! Y, N ) . 



v 


4o 


GRAPH OUTPUT WANTEtX Y.> N.. S >, TlflE INTERUALS< A4,F2.8>. . . 


<A4,8X,F4.0,2F6.0> 

CA4,8X,F4.8,2F6.0> 

<A4,8X,F4.0,2F6,0> 

<A4,8X,F4.©,2F6.©> 

<A4,8X,F4.0,2F6.0> 

<A4,8X,F4.0,2F6.0> 
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1313 TEST FOR TIO. .. . 



GRAPH OUTPUT WANTED<Y,N,S>, 

URC Y SCALE 

PLOTCY,N,S> LOC HIGH LOW 


>S 


VP Y SCALE 

PLOTCY,N,S> LOC HIGH LOW 

002 Y SCALE 

PLOTCY^N^S) LOC HIGH LOW 

>S 

PRA Y SCALE 

PLOTCY,N,S> LOC HIGH LOW 
” 2 - -5 - 1 . 

HM Y SCALE 

PLOT<Y,N,S> LOC HIGH LOW 
>V 2 . 43 . 38. 

I Y SCALE 

PLOK Y,N,S) LOC HIGH LOW 
>Y 3. 10. 0. 


>Y 


TIME XNTERUALS<A4,F2.0>. 
C A4 > 8X.« F4 . &, 2SF6 . 0 ) 

<A4,8X,F4.0,2F6.0> 


< A4v- 8X.< F4 . 0/ 2F6 . 0 > 


<A4,8X,F4.0,2F6.0> 


<A4,8X,F4.0,2F6.0> 


<A4,8X,F4.8,2F6.0> 
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1313 TEST FOR TIO 















hh 


GRAPH OUTPUT HANTED<Y,N,S>.THC INTERUALSCA4,F2.0>. 

>-Y 5. y S caLE CA4>8X>F4.0f2F6.0> 

PLOKY,N,S> LOG HIGH LOW - • • 

y L 1 ' VIm-E <A4,BS<,F4.0.2F6.0> 

plotc y,n,s> log high low ... 

>'< z ■ VsCALE <«4.8X,F4.e,2FS0) 

PLOTC Y,M,S> LOC HXW LW 


>Y 


PPA 3 - CM,6X,F4.0.^6.0) 

PLOTC Y,N..S> LOC HIGH LOW ... 

>L 4 - Y SCM CA4.8X.F4-0.2FS.0) 

PLOTC V.M.S) LOC HIGH LOW ... 

>Y 5 - YSCM-E <A4.8X,F4.0.2F6.0> 

PLOTC Y,N,S) LOC HIGH LOW 

•_jY 6. 1 o. o. 



45 





k6 


OUTPUT WANTEO<Y,N,S>,TIfC INTERUm-SCA4,F2.©>. 
f ( V,,S> LOC HXGH^LOW 
S«KV^S> LOC H 

fcy,N, S ) !oc SH&. <(w-8x,F4.e,2F6.e> 

1. 2568. 2388. *'* 

®KY-N,8> LOC HIGre. 

1lot,:v,n..s> log hI^I 

>y 2. 43. 38. 

PLOTCY,N,S> LOC HIGH^' 
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1313 TEST FDR TIO. .. . 









OUTPUT WANTEEKY,N,S>,TIt1£ INTERUftL8<ft4,F2.0). 

/T1 

>STt? UT WANTED m S^'STOP C6A4). . . 



APEENDIX E 


' US THUGS OF SUBROUTINES 



* . ..OfUflfl gj, 7.0 ALlS-LARRI ja EALgy HA JJtf A -MAS A. .XI L£ ’ 

DoiDO 2* C 

00X00.. 3* C_ ... PROGRAM. GU-Y-T-ON- - -- — — - 

00100 R* c circulatory dynamics - CIRCE 

. . .00.100. 5 * C. CJ&CE4 

ooiot 6* REAL LVM,I » IFPtLPD.KEiKEl ,KOD,KIR t KIE,Kl *KCO»KED*KNI »KN3 

.0.0103—. 7.1 R£iU NA£_i .NPJD.AJil.LD-iiJ.OD ,».LJ^.RK^.K.1.D., 2L*XC Z_^p.U>iiP_R »XlU4-3- r m40 : 

00 1 OR 8* DIMENSION F UN 1 U R ) t FUN2 ( 1 R > , FUN3 U R ) » FUNR < 1 R > , FUN6 U R > » FUN7 < 1 R ) 

. _ OOXQS- _ -9_* _.£OJillO^/JLRRA3L/I-*.UJ/£OaJi/US4.JiLEA > VAS*4LA-#-VR^*J/Ae t p-A- + .E^fc5,4^+» < - 

00105 10* * VRE»PRA»qRNtVPE.PPA*PPl .CPA»RPAiRVM»VLE»PLA»G)LN 9PL1 » i 

.. 0Q.1QS. 1XS*. * - A4-8 t.RP™V4ifiEX4p^i^QPJUiJ5~^V.iAE »-V.V8->-P-VS4-P.GAI^.RVa4^V0-^AV.E - •* 

00106 1 2* COMMON/ARrAY/CN2*CN3»RV5»pGSiRTP»QAO»qRO»QLO*DVS»DPA»DAS»DLA»OR'Ai 

0.0106 13* -• £jU^.AJUX.4-A.UB iA-UO-UjUS-tAUXtA-U SjJUy U UA*AU— *JUJ 

00106 1R* * AU9*AUM»AUR*VIF»P01 »PTT»pTS»PIF*CPI »PTCfCPP*PPC»PVG 

OCU0-7— IS*. 4XMMQ-NXA.R.RA-YXPC — tRCO-*.V-T.C-4-P-L0-»-VXL-» V-TD-s-y Po , 0Pl - » GP 1 » DP C » DP I ♦ LP D *OLP-* 

00107 16* • DPPiCHY»PRM,pGR,CPG,PGp,GFl f PGxiPGC»PGH,pG2tVGD»VG »■ 

DOXOX XJL* * E.RH.i.GiU-1 G P--2_tGP 0-*JU R.tRS. .».RFJi t .AP{) » G-L-P^F-FX *OF-R-» TRR-» V-UD 

00110 18* COMMON/ARR A Y/REK *NOD »NED »NAE j VEC »CKE »KOD »KE1 ,K IR »K IE »KCO »K.ED »CK I j _i 

QOXIO L£<* JL-. jC.NA.tCXD j.y.XDxtCX— 4 iU — *UX-»44~~-4XXY~»2; — » ,V.TX*AUX-»-T-V.A»SX4~»^. ... 

00110 20* * DF2»X i I 2 tPRltVTS*VP ♦ p RP • I Fp » Gp R » K N3 i KN 1 » AMR t AMP 

0011.1 2UJ . XOMMJCINXAPAA.YAAIU.sAMjCjAIIX, AXX,AJ-l5-tAM_.».€.Jl£^ASi<^ANP-*ANUAllC-»AAl2-»-A-NS» \ 

0 0 1 1 I '22* * AN5iANM»VB »HM1,hM • B I . V I E » V I B » V I M * RC 2 » P02 » RK C » R C 1 » 

001X1 2-3* RCQ. i-mCi R-StU-CLVA .SELM ji OQ B_, A DM ♦ P-1 & » QS VM POT ».pQQ tP-OS-t-A R-l ... 

□ 0112 2R* COMMON/ARRAY/A I R2»POC»AR3.ARM»CNB*GFN,AH7,AH8,AH * AHC , AH 1 j AH2 » AHR . 

QOXL2 -JLS3 * — A jXU.Y_tCAH4.Vm 4.VV2 jM£j.V X6.ULV.7-*-!. V &•» ALT !A«4tSR..tWSA-»X4-D *- 

001 12 26* * SR »VVR*RAR*CV » CN7 » AUX » AUK * AUZ * V » C F C » CPK » PC E » CPR 

0014-3- - — COMMON/-AARA-Y/XPKsDP0-*HYL^K40-»AMT-<ANTtPDK-tP0N»Al-K»A2K > A 3 K »-C N R-« C N-Z-* — 


AirwnO Mooa, jo 

si 3DVd 'mwm'- ' 





00 31 1 

003 ri 
. 003 1 a. 
00315 

ouau. 

00317 

. JPJL2U z_. 
00320 
. OJ3A22_ . 
00323 

00325 

00325 
QJW2A-. 


. ?Ar. 
86 * 

87.* 
as* 
ml*. 

90* 
3.L*. 
92* 

-M*._ 

98* 

_9.5*._— 

96* 

-JLZ* 


. 3Q...I.F„UL0(JNVT -*EQ*. 1 Y.QQ0X. .GO_Xfi AO .... . 

C HERE IF NOT CONVERSATIONAL. NODE, 

WRITEI6,32) 

32 FORMAT l * C1ADD DATA FILE.***) 

..-CALL PJLLT IN . 

GO TO 38 

80 WRITE (6»721 ) 

._.Z2J — EORHAjU AJ).D_DATA- F J LEAflAOD. TT.YJ5AI) 1 
CALU PUTIN 


I THE 
-CALL- 


« 1 

TTYrillT 


00 32 6 
00322- 
00331 
. _ QD 3X1 - 
OD333 
-PQ33« — 

00336 
—00337 

00337 
-003-80 - 
00381 
.00.3.32. — 
00383 

. 003 8-3 

00385 

. .00386 

00387 

.. 0038.7. 

00387 

.-00382.- 

00350 

— 00350 

00352 


98* 

. .99.* 

*0 I AGNOST 
.1 fiLO*. _ - 
101 * 

1021 


_ 38. IE { 1 «. G..T.., .0,5) 1=0 ,.5 . . — . — . ...... . 

ic* the test for EQUALITY between non-integers, may NOT be MEANINGFUL* 

4.00 _ LE (■OjJ.T-»J'l£.'» 3.1 GO XO. .. 1.0.1 .. . . 

CALL 5EGLD (5) 

IEjU 000X1—,. ECU — 1Y. 000,1 GO LQ--50 


103* 

-LO-8*. 
105* 

... 10 A* 
107* 

LoaA.- 

109* 

iaoi_ - 
in* 

-.412*-. 

113* 

. ._IAJMl. 

115* 

! — 11.61 

*DI AGNOST 
— -4L7-*. 


call putout 

.GO. T-O- UU 

C HERE JF‘ CONVERSATIONAL 

_ 50 -I-EXECN- = 0 - 

ITME = 0 


MODE, 


JFIIEXECN ,EQ. 0) GO TO lol 

-HERA-WH&N-E 1-N l SHE0-AL1 T-UiX SLEP^-TNEUT, 

CALL TTY1N 

t LTHE-a-2. 


CALL TTYOUT 


lie* 

.112*.. 


Cioo iFtOUT *Ep« 3.1 CALL OUTPUT 

C i.EAOSP— UGU -3U- AAU.--03E.LA A. — 

IC* THE TEST FOR EQUALITY BETWEEN NON-I NTEGErS MAY NOT BE MEANINGFUL*. 
1-0A- AE-tOS-P GO_TO_Aa2 1 ‘ ? — 


If 

&£~ 


-££ 


CALL 

CAL , 1. 


SEGLD (8) 
-0-SE.LA-Y 



00353 

--.00159 

00358 

00355 

00356 

S 035.6 

00356 

_ .0035.6- 

00356 

. . 00356 

00356 
041355 

00356 
— 00356 

00357 
— 00352. - 

00357 
-GL0JL5X— , 


120 * 

_A2.1*_ 

122 * 

1 23* . . 

128* 

. ..1252— 
126* 

. -12.7* 

128* 

.. _1 2.1* 

i do* 

L3J1 


-AO 2— As.Il 1 Z 


C 

_c 

c 

A 


00357 
00360 . 


132* C * 

. 133* C. . - 

138* CALL AUTO 

1351 1 ... -. . 

1 J6* * 

..1,3.7.* t. - 

138* C 

4391 1F( I3.LE. I-21G0 


C ALL-5 E6L0.. L14 

CALL HEMO (FUN! , F UN2 . FUN3 , FUN8 ) 

JC5 LJ — fcAELItJ Q 1 AMU litU. AHUUHY UliU AS MU Oh 

CN2 , CN3 , CN7 ,C V ,0AS,dLA,0Pa 

- HPi!_i.HSL»-H SR ..U-iLVIUPA ,P.A M 

PPA,PP1 ,PP2,PRA»PR1 fPVS.QAO 

- QSXUQ.VO-U?AM^RAR .-RBFiRPAUP-T- 

RVS*U .VAEiVAStVBDiViMiVLA 

, _ . - - .VLSI UREUV-E ,-V.VA. i.VICS *-V V7 »XV8 

F UN 8 1 


—S 


.,.ALMjAU4-».A VO+8F-H.UF4U 

,dra»dvs,fis»hmd»hpl, 

,PA2.*EC.-,P&L •P&5+RLA-*- 

,QLN»QLO,QPOfQRF *QRN* 
.,R.fiV.,R54!*-R&W,fiA!G»R-VM-» 

, VLE » VP » VP A » VPE i VRA » 

♦*. „iA.UN.U^UN2,FUN3, 


<AU i AUB » AUC , AUH » AUJ , AUK » AUL 
.. ..AUR,AUS+AUV-,AUXUUZ »AU8-, AU^ 
EK l , I 2 f P A ,PAl iPOQ.pOT ,P20 
ZB , 24.2 L — 

TO 165 ... 


,AUM»AUN,AUO»AUP»AUQ, 

, Alt 8 * A-1B , DAO tA-X-C-1 -E-X-E-i- 
« ST A » VVR , V V9 * Y ,Z, 


VJ1 

ro 



,_S 03.62. 

00364 
003 66 
00370 
.0 0J 7 0 ... 

00372 
.._0QJLZ3L_ 

00373 
_ 003 7.3. _ 

00373 
-D-Q. 3 7 4 


_ i fi n ♦ 

' I M | * 

.. J«2*. 

143* 

..Lai* . 

1 $5* 


. LfJlPSJ.DAU.ri'VJ) i.GT.«DAjjgo_ 

UO IF (ABS(QAO-QLO) ,GT. .2)60 
-IF < 0-<3PQ.! »GT>j2).5;0 

IF (ABS(QAO-QRO> .GT*«4)G0 


.tQ-XQIL - 
TO 100 
TO 100 
TO 100 


l«7* 

_iia*. 

14?* 

J.SlO*. 


00374 

0 0 3 T 4 


ist* 

■I 52 f 


16B CALL SEGLD <2) 

CALX —HdRJSlOil LA5 i_AiLC ^AMR. A MB . AM.T , A 

• AGK,ANC , ANP ,ANR » ANT , ANV » ANW » AN I » CN A , CNE , GF N » 

*__ _ „J ^REK-»Jl2 A.3 ) 


-CALI.-. BLOOD 


( H |f M , H M , , I 

VB ,VJB , VIE, VIM, VP , VRC ) 


D0375 

.00375 

00375 
0 037.5 

00376 

. _0.D3X6_ 

00376 
— 0.037-6 

00377 
...00327 

00377 
... J.Maa - 

00400 
._ 00500- - 

00401 
J30A0X. 

00401 

. -005.02.— 

00402 
.30503 


153* 
,1&4*_ 
155* 
J&A*- 
157* 
— 1 533- 


CALL MUSCLE 


..X. 


< AL0,AMM,A0M,AUP*A4K«,BFM»EXCtHM »I , MMQ , OMM . 05 A , 
. Q3/.A-*-0 V-S. f 0.2 A , RJ10 » BK R-MX-, RM-L .-P-M3-, R«-4 , RM 5 , 

POE,POM,PVO,P20,QOM,RMO. VpF.ZS ,Z6) 


CALL AUTQRG 


1$9* 

161 • 
-4.A.Z# — 
163* 
164* 


(A0M,ARM,ARl,AR2»AR3,AlKiA2K*A3K(BFN»D0BtHM »Ii 
-ttQ2.,-053 I^ aVA. > 0 2 M . « J? .O A ^EJ3& ,-E.CK: , P OP , P O K , PON , R<3R-4-RXt T 


P0V,P0Z,PI0,Q02,R00,7 ,Z4',Z7> 


CALL ADH 


... *_ 


(AH »AHC ,AHK t AHM,AHY,AHZ *AH7. AH® iAUP,CNA,CNB,CNR, 
- CN . Z , 1 -,RRA^3). 


155* 

.1-5.65.. 




VVE,VV6,VV7,Z ,V9) 


l«. T . V -2 ,. V .£ C t . V - I .C » . V . T -W-, 


I 67* 
— iJUjl 


call heart 


169* 

_L5ULl_ __ 
171* 
17 2* 


( AUR,DHM,HMD,HR ,1 , P A «PMC»PMP*PMS,POT t PRA*QAO, 

OLXL4.RJLE4 SXO-fXAE-, 34. E^y.P-5« V-R-E-rV-Vi^m 




00402 

. -00503 

00404 
305.05 


173* 
— 1X4*- 
175* 
L73JL 


PRP,PTC,PTSiPTT»PVG,PVS»RVS»TVD»VG » V J D » V I F i VP * 
—VRD-t- V TC > V T O>V-TL^ VJP5 ^VLU1+Z *X4— t FUA16-) 




00407 
- 0041 1 . 
0041 2 
-0G5X2-. 


Ii=ABs(VPi AVPO/I I 
JLEXX1 . LTj.l 1 LiOJ— 


177* 

17.3* 


JF<13*T-T1.LT.I) I = I 3*T-T 1 

JLsX.+ Ii 


00413 

...P.P5..1 3. 

00415 
-.005X6- . 

00416 
.00 4X6— 

00416 

.J.O'OZ-. 

00417 
Q.Q52J — 

00422 
-Q0 923- 

00423 

00424 „ 
00424 

_ QO 4-24— 


179* 

.13.0.9... 


Tl-T 


♦DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN 

LSI* l.FJ.Q.UJ- 4 -tiE j.,4 jJ_2L0_J 0. .19 9 

182* C ACL SEGLD (5) 

__ 183* CA LX- PUTOIl T 


NON-INTEGERS MAY NOT BE meaningful* 


164* 

. J.fi5*. 
186* 


1F-I 0 LLT_«.Xnu.4.»X _C A L4 O.UXP 111—. 

1F(DSP.EQ.4.) CALL DSPLAY 


A&1A5.N.Q.5J J C* U±E — T.E5X—EXR— L3 V Ak L T JC — 5LT.K£ElI_J10 M= -LN I E G E RS— M A Y NO T -,B£ .MEAAIXNgF-UL-i 

1 67* 199 IF1D5P.NE.4.) GO. TO 200 


-LB 3* — 
189* 

.J-9-0* 

191* 

_X2JLI_ 

193* 

. L9JL*.- 


CALL- SEGX0—.L4 1. 

CALL DSPLAY 

200 CALL SEGLD (3) 
CAX1 BUL-MQN- .. 


. (-CP-E ^CPP_»XRN ,0 FJEU.I ; .^P.CP.,RF.l , PLA »PX-F. .RaS^RP-A+RP- C r 
PPD.PPI ,PPN,PP0,PPR,VP tVPD,VPF,Z ,Z3) 


\J1 

U) 



CAL t „MI S C j> . (HPL, H PR k H S L xH SR , .1., P A » PP.A_* PD 1 1 ST H_i ZJ D-t l U, tZlAL 


00*4 25 19S* 

00625 Tr6» C 

0062$ J 9 7 ♦ _ _ CAUL PR9TEN. . ,i.C»iy t,CPG.« CPJ » CPK.»£PP.*.CPRjCE1-,DLP..D.U2-> DBX-»QrI *J)PL + 

00826 19 6* * DP0,DPY,6PD,GPR, I ,IFP,LPK»PC , PCE , PGX , PRP , VG , 

OD62JS. 1 9.9 * * _ .. -V.IUZ „.,-PPDJ . 

00626 200* C 

0 0.6 2 7 201* C A LL KIPN FY ( AAR.AH M.AM, ^A P D » A R F , A UJlj.CtilE-t C N X , C,NY.,GaL-«OF-l!iUOEB : 

00627 202* * GF2|GF3,GF6,GLP,I , N AE t N eD , N I D , NOD , NOZ ,P A t PAR , 

Q0627 . . _2Q3.* *._ ELEL ( PP C.,.RaF ,.REK-,.RFN-, R-R-^S ^. H-^TR^-tV ULj-VUa,^-) 

00627 206* - C 

0 0 630 ZDS* CAUL. 1 QMS (AH t . CC D.., XK EL f .C K I tJCNA.,4 , If C P « K E -t-K£P , K . 1 - , ^ K- l -D-t-K-l-E^ 

00630 206* • KIR.K0D,NAE,REK,VEC,VIC*V1D.VP iVPF,VTS,2J 

.00 6.30 ?n 7* 

00631 208* CALL GELFLD ( CH Y , CPG , CP i , GPR * H YL , ! FP i PGC « PGH , PGP i PGR , PGX > P 1 F , 

006.31 _ Xti.9.* _* . PfiJl ,_E.tC.» R TS , P t-T^ V4 . .,VOO-UV-i-F-,4ARJ5 *JUT-S^-V-2 0-»-F-UN44 

00631 210* C 

- 00-602 24. L* .GO_T-0_400- 

0D633 212* END 


... END. OX_CO.MPIUAT.IQ4L:. 


00101 l* SUBROUTINE ADH (AH f AHC , AHK , AHM f AHY , AHZ . A H 7 , AH8 , AUP , CNA , CNB , CNR , 

fl 01 0.1. - 2 * — * C_NZ*.I.-_,.PR.A U.L- 

00103 3* REAL. I 

OOltU- - A*.-. C „ 

°0!03 5* C ANTIDIURETIC HORMONE 

. _ 0 04 0 3.. , . 6 .* C .... . 

0010N 7* CNB*CNA-CNR 

-.001.05- a* .AH.ZJUZJlP.RA i ■ 

00106 V* AHY«AHY+(AHZ"AHYJ*, 0007*1 

.-.001.0-Z.. ... IQ* AH8J«AUP--1_. _ _ ; 

00110 11* IF ( AHa.LT.O. ) AH8-0. 

Q 014-2. ... — 1_2Jl -J-F4XJMBU.T-. £U4.CN£* 

QOlia 13* AH«AH+(CNZ*CNB+AH8-AHZ+AHy-AH)/Z 

04114.5-.- Ui± .. — LEJ-AR-»l^J_fc0^jLAJi.*CL*. 1 

0 D 1 1 7 15* AHC«AHC+t.3333*AH-AHC>*< 3 . -E X P < - I / A HK ) ) 

— 00120. .. 1 . 6 *. AHM»6j»lUiEXR.L.?*Q*L8Xm.*AHCl-l — 

00121 17* lFtAHM.LT., 3) AHM*.3 

001.23. . -18#. . .RETURN. . . 

0012R 19* END 


E-NU_DE_lLQMPl.LAT_lD.fi: NO DIA.GNQ.SJ I CSj 




Ool 01 

1 * 


— 9 Q..LQ.I .. 



00101 

3 * 


O 0 . 101 . . 

- . 4 *. 


00103 

5 * 


.00103 

..6*. 

.C.. 

00103 

7 * 

C 

. jmo. 3 „ _ 

. 

_c 

00104 

9 * 

1 20 

... 0 .D 1 . 0 S 

„.in*._ 


00106 

1 1 * 


. OQliJl . . 

12 *. 


00112 ' 

13 * 


... mu 3 .... . 

— Lit* 



00114 

15 * 


..ODli .6 

- 1 . 6 *.. 


001 20 

17 * 


0012.1 _ 

18*. . 


00123 

1 9 * 


...Q.QJL 25 

„. 2 . 0 * 

123 .. 

00126 

21 * 

124 ’ 

-_ 0 fl 1 X 7 - .. . 

22* 


00 131 

23 * 



SUBROUTINE AUTO' (AU , A UB , A U C » AU H, » A U J , A U K , A UL , A UM , AUN » A UO , A Up , AUQ 
.Ay# , iAU,5.j. A U. V..r A..U1U A U Z j. A.U.,4 » A.UL&j AUB. t~A lBi D A U , f X f ( pXF 

EXI.I2 iPA tPAl #P0i5,p0T,P20*STA*VVR',VV?»Y »Z» 

-* - - ZB 4X12) _ . . . 

REAL 12 

autonomic control block 

EXE=(8.-P20)*EX1+(EXC-1.)#Z12 

-P.0.Q ** P.0 T . 

IF < P0Q«GT,.8, JPOQsQ. 

- IE. -IP OJS • L.T...4 

PAI=Pa*POQ/B,-EXE 

- A.U C-JUs... ... 

IFIPAJ *LT»80« )AUC=,03*(80*»PAI ) 

I F. I ELA I . *LD . LA UX.3 J * 2 

AUB*Q « 

I F.i P A_1 , L T • 1 7 0„. ) A U a = ._D 1 4 2J 6 *. 1 1 7 0 *.» P.A J J 

IF(PA| ,LT • 4 Q # ) A UB » | *83 

.&JJ&&JLAJJ B.-J.4.1.* AUX + 1..« ... . 

AUN = 0 

. JAIfAj. ^LT-.5H* JAUNp.*X*.iSO . »PA44— _ 

IF(PA 1 *LT.2Q. ) AUN»6*Q 


-OO-U-l 24# . 

00134 25* 

OJD.1 3ia .,2.6* 

00136 27* 

00.137 .. . ..xa* .. 

00141 29 * 

Q01_*t4 .30* 

00145 31* 

_3 1 *. 

0D147 33* 

P015.L 34* 


AU6.S A.l^-AU-4 ~ _ . 

AU0»AUK* ( AU6- 1 « ) 

- - OAU P-IlAU.+.LA.U£4;AUj|j.*.A,ULLr.n AUJ../2 /X 

AUJ=AUJ+IDAU-AUJ)*I2*6»/ZB 

J F l All J 4 . LI »0 • ) AUJrO.* 

I F ( A UJ- 1 . J 126,127,1 27 
. 1 26 . . Ail=AU J**AU.Z ... 

G 0 T 0 1 2 8 

.. J H.. j&ilJLlA * AlLLZAJ. • 

128 IF ( STA .GT. *0000 1 ) AU<=STA 
.. A U.O= AU-.1 . . 



00 t 5 2 

35* 

AUP= aijo* AIJQ + i . 

oois3 

3 6 » 

AUH = AIJ0*4UV+ I . 

hois'* 

37* 

AUR = AUO*AUS+ 1 . 

00155 

36* 

VVR=VV?-AUL*AUP 

00156 

3?* 

AUM=>. lS+.,aS*AUP 

00157 

HO* 

return 

q.o 1 6 a__ 


.. .-END 


END OF compilation: no diagnostics. 




0 □ 1 0 1 
mm 

00 JOl 
.001.03. 
00103 
301.03. . 
00103 ' 
J.QLLJX3. .... 
00103 
00 1 03 
00109 
J3al.as... 
00106 
JD 0.1Q.7...„. 
00111 
0QJ.12. __ 
00113 
.D01_Ltt__ 
00) 15 

mil 6 ... 

00 1 20 

.031.21 

00122 
00.1 VL . . 
00125 
. . 0 . 0 1 . 2 * 2 .... . 

00125 
00123. 

00126 
JUI1Z2 

00131 

JOUl 

00131 

00131 . 


1 * 

l* 


' 3 * 


.. H.t _ . 


5 * 

C 

6 # 

.c. 

7 * 

C 

M._. .. 

JLsv 

9 * 

C 

- ..in* _.... 

_C-' 

1 1 * 




t 3 * 


_ .LH* 

H1I1 , r 

15 * 


. . 16 * 

. - . 

17 * 


J-. 13 * — . 


19 * 


ZSJL. 


21 * 


22 * 

— 

23 * 


.. 


25 * 


26 .* 

Xr. 

27 * 

c 

... 2 B* 

C-. 

29 * 


.. 30 * „ 

. , ^ 

31 * 


__ 32 ?_. ..... 


33 * 

c 

39 * 

Cr* 


SUBROUTINE AUTORGl A0M , ARM ,AR 1 , AR2 » AR3 , a IK , A2K'# A3K ,BFN # D0B ,HM ,1, 

. „ MQIaOSV i OVA..,Q.2lijPj5Aa.PJ3m.f.QC^a£UEJlK4e.ON*ZOR4P.OJL, 

* P0V,POZ,PlO,Q02.RD0,Z ,Z9 # Z7> 

REAL. I »MtL2 - - - -------- — 

_NDN-MUSCLE OXYGEN DELIVERY BLOCK - - - - - - - - - 

AND NON-MUSCLE LOCAL BLOOD' FLOW CONTROL BLOCK 

mjm mm mm mm *» mm, m^mmmm mm » mm_ m «* _— mm — "2 •*.<* JS . m TJ! m ~ T -■ — -^-* * "* ** «*J* «*• , .. 

AUT0REGUL AT I ON f RAP I D 

m • mm mm «■ — , ■» mm M hjm «• ^ #w •» • ■< »»* *> — ** mm mm ^ ^ * » — — y» f _J*»^** *ft ** M. •* *• mmJJ* ■ • JM ■LS* AJH fS.f* M *• ft A W.jpJT IW Ml JP Bf . W _<m W . — 

OSVsOSV+l (BFN»0VA-D0B)/HM/S,/BFN-0SV)/Z7 

. POViC-O si/ 157^1 9 - — - 

RD0“PQT**3. 1 

__ 1 F„.LR.CLCL*.L.T «.5Q *.1. R0 Q.P.5Q ». ........ — ... — . .. — — — - — — ~ 

D0B=» (P0V -POT) *28 96. 5/RDO 

MQ25>.A0M?i»02M*.t Ur l-B..a0CirP4-Q-)-**3»-Z5-12*) - — - ■ — • — - -• -- — 

Q02sQb2+ ( D0B-M02 ) * ( 1 . -EXP { - I /ZB) > 

PJQ.TpQ 02*^ 00333 - - ....... ~ — - - --- — — 

PlOaPOT 

„JufJ^O.T...!3 J.^Sji.).e-l.a?3 ^ — — 

P0D=P0V-P0R 

. Pna.«POfl.ttHQKjLBJ0Q+J ^P0£.)/Z.,’. - - — -- - - ----- 

1F(P0B.LT..2)P08=.2 

. . jRJoARl+JBOB-ARlUXl .j-E2P1*= 1VAJLX 11.. - ' - - - - 

ARMbAR 1 * AR2* AR3 

■ m mi mm mm mm mm — *» mmjrn mmmrn jm m> m • ISJR ,' ^ Ft m SJtt ftSl 2£j*l J3JP F mm FJFM JP FJB. * F-^JBLW fflLaa t»4» F J9J* mJFLmm JR XtJBLi t P? i— 

AUT0REGULAT ION , INTERNED l AT e 

- m tmjm mjm m *• mm, — mmmmm***'*;*** "<m «• *f *• — *»• pf «•*.»* •* ^.«R <■* •» ».*» ■»„** MMnlLiaJB f* <• ** «AWS» » *W ■* W a — . 

POA=POA+(PON*POD+1 ,-P0A)/Z 

. .. _1F. I P 0 A..-L-U * 5 1P0 A = * 5 ... . - . . - - '■ 

AR2 = AR2+ ( P0A-AR2 > * ( 1 , -EXP { - I / A2K ) ) 

-5u— — “ - r.— .r — — - — “ r “ - t r.r-.— r.r - r.nLr*.- *ur.r r «.»i.n — .n — r -lt„— r oj. ja.r.- jvtlx «.«! s *.!p » jojsj*. . . 4 

AUTOREGUL AT 1 ON , LONG-TERM 1 

~ m m m *m mm * rnt'mmmm 9 •* p"nfiR •• mm * «■ J«> «* K» «» Ml b>a at m «> »W « W «*-*• m m m j» M nun ot ai ««■** *» «*- 



go 1 3J2 . 

3 5 * 


00135 

36* 

192 

Cl 01 36 

37* . 


00137 

30* 

1 9*1 

OOHO 

39*. . 

J?6 

001 *12 

<10* 


Q0M3,. 

.. *H*„. . 


001 <1*1 

*12* 



IF (POD) 1 9 H «.l°2.*i?2 

FOC = POZ*PO D + 1 • 

60 Tn 1?6 

POC= B OZ«P0P* . 33+ I • 

if [PQOLT.t31P.0C*. 3 . _ 

AR3=4R3*(P0C-AR3)*I/A3K 

return 

END 



EiU3-J_F_CXUdP_LL Klim. 


.m.-_QiA.ajiasjix.5 




OOlOl 

1 * 

SOLDI . 

2* 

00103 

3* 

00 l 0-3 

A* 

00103 

5* 

001Q3 

6 * 

00103 

/* 

00 1 oo 

. ait 

0010*1 

9* 

- 00 l os 

10* 

00106 

li* 

-00107- 

12* 

OOllO 

13* 

00.1 1 0 

n* 

OOllO 

15* 

-J0U11O . 

.16* 

OOi I 1 

1 1 * 

004 12... 

18* 

00113 

l 9* 

001 1-5- 

20* 

0QU6 

21* 

-.00-1 1-7- - 

. _ .22*.. 

00120 

23* 

--QQ4-2-1. .. 

24*. 


c 


SUBROUTINE BLOOD 

* 

Real I 


( H K M » H H »HMK»I , P 0 7 , PO Y , PO 1 » P02 , RC 1 » RC 2 , RC& ,rKC , 
VB- ».V IBj V IE » V.IJ4 » VP ,VRC}_ 



end ok compilation: no diagnostics. 


■as ■ 

o 



00101 

1 * 


SJSROUtINi: CAPMBLMbFH.CFC.CPl *CpP,DFP, I tlFPtPC , PCD , P 1 F , PLD , pp C , 

00 10 1 

2* 


* PRP.PTC,pTS.PTT,PV6,PVS,RVS»TVD,VS »VID,VIF»VP* 

00 10-1 

3* 

- 

# VPD.VTC,VTD»VTL,VTS,VUO,Z ,21»FUN6) 

00103 

4* 


DIMENSION FUN6U4) 

-00 104 

5* 


REAL I.IFp - .. ... .. - , 

00 10 4 

6* 

C 


00 104 

7# 

c 

CAPILLARY MLMORANE DYNAMICS BLOCK 

00 104 

8* 

c 


OOlQS 

9* 

130 

PT fan/TS/ 12* 1**2. 

00 106 

10* 


VIPat/Ts-Vd 

00107 

U-* 


-CALL FuNCTN < V I F »pTS * FUN6-J - • ... 

OOl 10 

12* 


pif»ptt-pts 

OOlil 

. 13* 


CPI=IFp/Vif 

00112 

1 4* 


PTC«.2'j*CPI 

00113, 

IS* 


CPpapRp/Vp 

00114 

16# 


PPC».4*CPP 

-00-1 bS- 

17* 

- 

P</G = RVS*1 • /9*BFN • - - - - . .. . 

00116 

i a* 


PC = P YG+PVs 

00117 

19* 


PCDaPC+P rc-PPC«P IF 

00 120 

20* 


VTC=VTc+(CFC*PCU-VTC)/Z 

004-21 

21* 


PLD=7 *8+P 1F-PTT . - 

00122 

22* 


VTL = 7Tl*( .UQ4*PLD-VTL > /L 

001-23 

23*. 

— .. 

I-F~< V XL . L T * 0 ♦ 1 V-T L« D ♦- - _ 

00125 

24* 


VTD=VTc-VTL-VID 

00-126 

2£ft - 

- . . . 

v rs=v.Ts+v ro* i - . . . _ 

00127 

26* 


VPD=VPD+! rYD-VTC+VTL-VUD“DFP-Vp01/Zl 

00130 - 

27* 


RETURN 

00131 

28* 


END 


‘JO 


ON 

H 


END OF compilation; 


DIAGNOSTICS 





. .Q01Q1 

DOIOl 
. OQJ.CL1 
00101 
.. . .OJllill 

ooi or 
Omni. . 

00103 

00103 ' 

00103 

— 0QJJML... 

00103 
„ .0 01.0 3 . 


1 * . . 

2 * 

_ . _ 3 . 

HP 



6 * 

__ J* 

a* 

. 9.* 

10 * 

11 * 

12 * 

13*.. . 


.. SUBROUTINE 0SHARCU2.iJ , 2,U.I,N l lDJJPJ 
C THIS ROUTINE WILL DRAW ONE Of 5 TYPES OF DASHED LINES 

. C-EJLQM THE CURRENT I M A G.I.NA R.Y. BEA-M TO VIRTUAL C-QORg X-2,-Y2#- 

C L*D ASH WANTED ( } -5 ) » I=WHICH IMAGE OF DASH THIS PROG»Ay> 

-C . Jl= M.0_* HASXE R-S ..R.EHAJ.N.Uifi_JlM .. CURRENT 1 MACE . I OUE JUlltii£AL-£Q OiiMp .- B UF FER « 
C I SHOULD BE INITILIZED TO Q Ay STARy OF A LINE. 

-C... THJ5.RQ.UT.I1!1L. WILL- UPJlA-TE- l.,N,JUID- IOJJP-* . . - 

COMMON/ TKyRNX /KB AUDR.KERROR.KGRAFL.KHOMEY.KKMODE* 

_ 1 KHORSZ »XVEBSZ-» <1 TALC »-KS.I ZEF i-KLMRG-N »K-RMRG-N-» 

2 KTBLSZ»KHORZT( 10) .KVERTTI 10) , 

_J. JCB.EAU-X i JKAEAW.YjJ$i!l Q.V E£ ,*.KiLC.HA RJii _ 

^KM INSX »KM INSY ,KMAXSX tKMAXsY ,-TMINVX »TM INVY, TMAXVX i TMAXVY , 

..5TRE ALX i.TREALY » 1 1MA.6X * T I MAG Y * TRCOSF o-TRS I NF » TrSCAL 



ooioa 

1 a* 

00105 

15* 

00105 

16* 

0D1O7 

17* 

oono 

1 8* 

00110 

I 9* 

001.1.1 . _ 

.ZO,*. 

00112 

21 * 

00112 

22* 

00113 

23* 

DOUH 

, 2 .a*_ 

001 15 

25* 

0.01 17 

. 2 A*_ 

00120 

27* 

00121 

2J3 • 

00121 

29* 

Q0121 - 

SO*. 

00121 

31* 

.Q.Q.1.22 . _ 

. 

00128 

33* 

00125 . 

. 3 a*'. 

00125 

35* 

00126 

3 6.* 

00127 

37* 

JJ013U™. 

,._3 &<* , 


c 

.c 

c 


OJ MANSION )D(7,Si 

DATA 10/3,1017*8*0,5*20(7,5,7,2*0,3,20,7*8*01 
1 7*20*7*5, 7i5, 7, 3, 80*7*8*0/ 

R N *■ N 
LAST = 0 

COMPUTE VtRRTUAL AND SCREEN FACTORS TO APPLY To X2.Y2. 

- .X..? .(JU1AXSX .KMJNSXJ / (.TMAXJ/X - TMInVXJ. . 

Y « ( KM A X S Y - KMINSY) / (TMAXVY - TMlNVY) 

COMPUTE ANGLE BETWEEN THIS POINT AND PREVIOUS poInT. 

XI = ABS t X2-TIMAGX ) * X 

YL = AOS.L.Y.2^Tl_MA.(LY_L *. .Y ... . . .. 

I T ( Y i .LE. 0.) Y 1 = .0000001 

A_«...AXAiilXJ./Ua _ „ 

XS = TIMAGX 
YS » TJMAGY 

COMPUTE INTERMEDIATE POINTS FOR DASHES AND SKIPsIXS.YS ARE 
START AND XE.YE ARE. END OF A. COMPETED .0 ASH -DR- SK-I P L. 

RN»NO. RASTERS FOR A 0 ASH/ 5 KIP. 

._ .-lE.t I .^£.t....2.1 .SO. TO, .6 ... _ . 

I * 2 

.5 RN jf. LOT I , L ) - .. 

SEE IF ON SKIP OR DASH. 

6 I SKP . oO _ . _ _ . 

Z a FLOAT ( II / 2 * 


00131 
DO 1-3 1 
00131 
00.13 3 
00138 
.30 Uit. 
001 36 
0.0 X 3 7 


•DIAGNOSTIC* 
3-9 * . 

80* C 

ML* 

$2* 

flJ* ... _£L 

An* 

. as.* .. „ 


00137 

#6* 

_ OOISI... 

- ... RXi . 

oo t a i 

88* 

... aoi az._ 

a.R* 

001a3 

50* 

o o i_a 3. 

SLt 

ooias 

52* 

ooi as 

-- _S3A 

00 t 87 

58* 

_ 00150 .. 

_5 Si. _ 

□ 0151 

56* 

. 00152- 

• SZi- 

00153 

SB* 

0.0 15S 

. .. 5.9_» 

00156 

60* 

00 156.. 

. A.Ul_ 

00156 

62* 

OO 1 S 7.. 

-63* 

00160 

68* 

00162 

65* 

00163 

66 * 

001 65 

.67*. 

00166 

68* 

00 1 67 

69* 


.c 


THE TEST FOR EQUALITY BETWEEN NON-INTEGERS MAY NOT BE MEANINGFUL* 

. . IF..1Z. .NE.—Z4 ).-LSKR._b_L... 

COMPUTE VIRTUAL X FOR END OF I M AGE ( XE ) . 

,Z f SINUI ._*. RN /_ X - 

IFITIMAGX . G T » X2IG0 TO 10 

JOE X GE.T..T LIS- LARGER... , 

XE « XS + z 

. .1FLX£_, LJ_ X.2)_.GjQ_J.a 7M - . - _ . . _ 

HERE IF INTERMEDIATE POINT WENT BEYOND ACTUAL POINT* 

HERE IF X GETTING SMALLER. 

10.. Xe~*..*S.-j=-.Z... 

IF t XE .GT. X 2 ) GO TO 78 

HERE. LF .IN.TE.R MED LATE, POULT- WENT BEYOND ACTUAL pO-IN-T-.- - - - 

15 Xe » X 2 

YE = Y2 - - - - ... 

X » (XE - XS) • X 

Y_e (.YE. YS)..^t._.Y_ . - 

V H « SQRT ( ( X * • 2 ) + ( Y * * 2 } ) 

N s RN •» XI.. 

I F ( N .LE. 0) N * 1 

LAST - a 4 . - . - . 

GO TO 80 

. HERE — I F S-T-I-LL BETWEEN .2-ACTUaL POLNT.S .. — ... - 

COMPUTE VIRTUAL Y FOR END OF IMAGE (YE). 

78 Z = COS ( A > * RN / Y . ' . . . . 

1 F ( T I M A G Y .GT. Y2) Z = Z • (-1.1 
YE ~ Y S + Z 

80 IFtlSKP *£Q* 1) GO TO 82 
CALL DR AW A ( XE . YE ) 

GO TO 90 

82 CALL MOVEA ( XF , YE ) 


0\ 

U> 



.Op 170 

70* 

90 1 OUP a _ l DUP + 1 

00171 

71* 

IF ( 10UP .Lt. 10) GO TO 

00173 

72* 

CALL. OMPBUF 

001 7H 

73* 

10UP * 1 

00175 

74* 

95 IF ( LAST 1 ) RETURN 

00177 

75* 

1*1*1 

D Q2.0EL.. 

7 A*_ .... . . 

, . _ JF.< l. t<3T_.. [OUiU ) I 

00202 

77* 

XS * XE 

P020J 

7 S*_ ... 

. .ys = _Y.E . . .. . , . 

0020'4 

79* 

GO TO 5 

.DO20LS ... 

.an* ...... 

End 







. P.OlDl . 

1 * 

00 103 

2* 

aoioH 

3* 

00109 

9* 

00 109 

5* 

00 1 05 

6 ♦ 

00 1 05 

7* 

001 os 

8* 

.Q0105 

9* 

00 1 06 

1 0* 

,.oo i n 

1 f • 

00119 

12 * 

□ 01 J s 

13*. 

00 116 

1 9* 

00117 . 

J 5 * _ . 

00117 

16* 

.. PJD 1.9 J - .. 

... 1 1 *. 

00199 

t a* 

00195 

. l.s*_ 

00196 

20* 

_. 0.01.4.7 

_JLL*. 


.SUBROUTINE. PSPLA.Y ... , . . 

C0MM0N/ARRAY/AI900) ,TITLE(4OD)iCOL(20) > ALPHa < 20) 

COMMaAi/NUMEROVK »N l , N2 , N3 , N9 » NS * N6 . N-7 * N8 »N9 , N 1 0 t 

* Nll.N12,Nl3,N19»Nl5,N16,N17»N18,Ni9, N20 , 

* NT1MEC, UNITS, NZ»NTIHEP,NN» MAx NOONTIME 
COMMON/STORE/N61«N62,NG3 »NGMiNG5*N66»nG7,NG8,nG9*DT,TLP,TNP|ND, 

* ThUTMM,NFLRS_T,Z2(.L5i iQ.LX( 9 ).j 08Y (9i , YM I N UU ) nYMAXl 1 D > , 

* ■ N,PT{ 1 8 ) .BETA ( 10) »NGRAPH ( 1 0) * GRAPH! IQ) ,HEAD( 1 9 ) iNOEXP 

* ,omx 
IFiNFIRST) 200.100,200 


~ 1 00' R EAP ( 5 .m l )" TOTAL . j , ^ ~ - 

101 FORMAT (Flo. 1 ) 

N F I RJS T ?. 1 . - __ .. _ 

GO TO 2 

200 WRJ T E JL.7J _ AJ U . A (N1 ) .,.A ( N 2 ) t A ! JsL3 ) juU M.9.) ,_A LN BJ. ».A ( UJ >± , 6J.H7 ) % — 

* A ( Nfi > , A ( N9 ) , A ( N 1 0 ) , A ( N i 1 ) , A ( N 1 2 ) , A < N 1 3 ) ,A(N1 *MiA(N15> 

. „ JJLl j&JLLLr LQ.I A.L 1 £j.3x3. - - - ~ 

2 Return 

3 .C.A LL_ til B A-Nl.7. , 9.) . — - 

STOP 


1 TZ> 


end of compilation no diagnostics. 



QO 101 _ .. .1* 

00103 2* 

00104 3*. 

00105 4* 

-Qai 10 „ 

00113 6* 

00115 .... 7 *... ■. 

001 16 8 * 

DO l 1-7 -—.J?-* 

00120 10 * 

~Q 04.21 - .44* 

001 2 4 12* 

-001 27 - 1.3*. 

00132 14* 

00133 ... 1 5 * 

00135 16* 

.004 37 17f. 

00140 18* 

0 04 ill. _19 .<l 

00142 20* 


SUBROUTINE- F.M Till J HjJ 1 OLj T A.B J . 
D! MENS ION TAB ( 1 4 ) 

N*14 ... . 

0 0 110 1 « 1 ■» N * 2 

- l.jLUAB U4.1.T H..1-1 141» 1. 20^4 10- -- - - - 

1 ! 0 CONTI NUE 

_ _G Q TO J 4.0. . - .. 

120 POLsTAB ( I> 1 ) 


— 130 Ret u-R n — 
140 NN*N-2 


— — -.0.0.. 1-5 Q , 4->** l-.t-NAl 2 — . — . ..... . , . ... ... — ........ — . . .. . . „ . . 

150 IF(TASU) .LT, TH «AN0* T A B ( I + 2 ) *GT» TH) GO TO 160 

W.R.1 TE-( 6 , 1-004- T41 - . _ . 

100 F0RMAT(5X,* ***** CURVE LIMITS EXCEEDED ***** * , G 1 2 . 6/ / > 
IF1TH • LT-*- -T-AB ( 14 ) P0L = T-Ae-i- 2 -) - — 

1F1TH • GT • TAB(N-1>> POL°TAB(N) 


— .... G.Q .L0.-130. 

160 POL = TABC I + t ) + ( T A B ( 1+3) 

' - -GO TO 1-30 _ .. .. 

END 


TABt 1 + 1 ) )*( (TH»TAB( I ) ) / ( T A B ( 1+2)- 


— EMU. Of, XOMEXLA.T L.Q.N.! NjQL .XU A.GN.QSX1XSjl .. .... 




tab i 




Ooiol 
OOLOi 
DO 1 0 3 
00 lJDM 
noici4 

ooiaft 

00 1 OB 

X.O 1 OX. 

00107 

001J0 

00111 

001 1 2 
"00113 

901 1** 

00115 
D0L16 
00117 
:QD 1 ZD 
00121 
JJOJ22-. 
00123 
001.25 
00127 
.13 0-1.313 .. 


1 * 



4* 

5* 

6 * . 

7* 


. 8 *. 


\ 

'LQ ♦ ... 

b* 

Li 2* 

1'3* 


C 

£ 

1 4 0 


SUBROUTINE GELFLD { CHY , CPG , CP I , GpR , HYL , I FP , PGC , PGH t PGP ,PGR , P6X , P I F 

* _ PW1»JPTCjPTSUPTJ*V.fi. , V GJ3_»JLl F . ,VEJ5.j V.TS » V.2D.*EJU.Ni>.L_ 

DIMENSION EUN6( 14) 

REAL IFP 

GEL. FLU LD DY-NA.MICS . .. ... ... ..... 

CHY*HYL/VG 

.. JPJ? M = .-3^.? *X HX.+ 2.4..* 2. . ' «. _J 

PGR«=.4*CHY 

.£PG?>GPR/’yG .... — . 

PGP*.2S*PGX 

PGC*P.GP + PGR . . .. .. 

V 1 F*VTS- VG 


Lit*.. XA LL.~F-UHC.1N... (XI JL» P..LS.i.FilNi> ). 


15* 

PJF*PTT-PTS 

-IX* 

.CP I*IFP/1/L£._ 

1 7* 

PTC«s.25*CPI 

_ _ J ft*. _ . 

PJ5H»P IF +.P T.S+P.RH 

19* 

VGD«V2D*(PIF+PGC-PTC-PGH) 

_. 20*„ _ 

....... .. YfiS.VX±J/J?i) - . .. 

21 • 

IF(VG.LT.O. ) VG=0. 

2 ft* .... 

_ 1 F .( • 0 L2 »J_. J 4 A.fi S 1 V Q DJ 1 . SO. T 

23* 

RETURN 


24*. .. .. . E.ND 


END OF ’COMPILATIONS 


NO DIAGNOSTICS. 



„.00lf)l. . .. _ 

l* 

00101 

2 * 

00.10 3 

3* 

00 1 o*» 

q* 

. _ 001 05. . 

..5* 

00106 

6 * 

„ .. 0H.I.DZ 

.z* 

0 0 1 I 0 

8 * 


_s y B.R.O.U TJLlE.jP 0 T OS. HJ. UJ ) „ 

C THIS ROUTINE MOVES THE A/N CURSOR TO LINg; I COL U* 
I Y *= 767 m ( ( 1^1 ) .. *. 24 ) 

I X B J * t ? 

CALL. MOVABS.l I X 4 I-YJ . - - ... _ 

CALL ANMODE 

R.E.TUS-fcL . . .. 

END 


JEND OF. C_0M.PILAT.IQN; . .. _NQ . DJ A S NDS J. I. CS., _ 


co 



001 0 1 

1* 


00101 

2* 


Ooi03„. 

3 *. . 


00103 

R » 

c 

001.03 

5*. 

c 

00103 

6 * 

c 

00103 

. 7* 

,C- 

00103 

8* 

c 

-0 0 1 0.3 

. ... .?-* 

. . c — — — 

001 OR 

1 0* 


00105 

.. Lit. 


00106 

12* 


00106 

. 13*. 

C*?*' 

00106 

IR* 

C 

BXJJ 0 4_ 

!£*.. 

. Ct r.-.: 

00110 

16* 


Q01 U 

17*. 


001 1 z 

18* 


00J 12 

1.?*.. 

C. *_**.! 

00112 

2o* 

c 


SUBROUTINE HEART -(AUR.DHM^HMD, Hr ,1 , P A PMC , P»R, PUS-.Po T , Pf? A »-Q AO- 

* QLO,RTP,SVO,VAE,VLE,VPE»VRE,VVE,Hl) 

. R£A1 . I.. . . ; 

HEART HYPERTROPHY' O.R DETERIORATION .BLOCK 


HEART VICIOUS CYCLE 


“ ~ “•» mmmmm * — m m m m mm m m.m ^.m mmm rnmmmm mm m m*. m 


DHM= ( POT -6 , ) *,0025 

HMD^HMD + OHM* J,. 

IF I HMD* GT, I , ) HMD= 1 . 

MEAN CIRCULATORY PRESSURES 


pmc*ivae*we+vre+vpe+vle)/»i l 

PMS* ( VAE + V.ULE* VR£JV. -09.375 _ . 
PMP=( V'PE + VLE)/, 01625 


wjr •f.mmjmn BJUm.n 


“ mW rn.KB.9ie n m.m B mm m m-am_mjg, m m. - 


5 “ £ £.Si£L£.m » r ,~,WJS ji 


_Di3.U.Z 

00112 
00.U2 . 
00113 
aoi i *t . 
001 IS 
ao.iLii „ 
00117 


2 L*_ 
22 * 
- 2-3* 
2 *** 

26* 

..272, 

28* 


HEARLJ?ALE AND...SJ ROUE.. VJ1L.U.HE.. BLUCK — AALD _.TJ3IAL. EE-RIPhERAI pF^gT ^rF 


HR=(32.+H1 *AUR + PRA*2. ) • ( (HMD-1 . )*.5+l ,) 

R.IJ?jf f.P.A-PRAlAQAQ . . _ _ 

svo»Qlo/hr " 

REX1I.RN .... . . „ ... _ 

END ‘ ■ ' ' 


END DF COMPILATION.:.. . 


. NO DIAGNOSTICS,. 



Ootol ■ • 

1 • 

00103 

2 • 

00103 

3* 

0D103 

B* 

.0010 3 

5 *_. 

00103 

$• 

.. 0Q1 Q3 

7* 

00103 

8* 

.. 001 0.3 ._ 

„9*_ . . 

00103 

1 0* 

_. -0.0X113 

11? 

00103 

12* 

-°.0.U1B_ 

LI* 

00105 

1 B* 

00.10.$ 

1.5*. . 

0010$ 

16* 

001 DA 

17* 

00107 

10* 

- 0.0102: 

1.?* 

00107 

20* 

0DL10— . 

21* .. . 

001 10 

22* 

. 0.0110 

2 3*.. .. 

Oon 1 

2B* 

...o.tuxi . .. 

25* 

oon 1 

26* 

. 00112 

27* .. 

00112 

28* 

01314 2 _ 

29* .. 

001 13 

30* 

_..OfUJJ_ ... 

3 1 * 

00113 

32* 

...0.0113.. __ 

33* . .. 

001 IB 

3B* 

001 IB 

.35* 

001 IS 

36* 

0D1 IS 

Al*.. 

001 15 

38* 

... J1DU6 

32* 

0011$ 

BO* 

- .0Q1J.6 

. B 1_*. - .. 

00117 

B2* 

am.Lz 

i3* 

00117 

BB* 

. D0120. 

BS.* „ .. 

00121 

B6* 

..00121 

B 7 * 

00121 

BB* 

. .0.OX2.1 

av*. 

00121 

50* 

.0.01.21 

Si* . 

00121 

52* 

001 21. _ . 

,53* 

00122 

-5B* 

. COLZA 

5 a.*... 

00.1 2B 

56* 

GDI 25 . . 

57* 


„.SJUBROUT I Nf HE.MO JfUhJl .F.UN2 *fUN3.FUNB) 

DIMENSION FUNll l 4 > iFUNZ ( l 4 > .FUN3UR ) ,FUN4< 1 h > 

SUBROUTINE HE MO UMM.ANM.ANU»ANY,ANZ»ARM»-AUH.AUri»AUY»AVE»BFM.BFN» 

* CN2*C M 3»CN7 » C V .OAS.DLA.DPA.DRAtDVS.FlS.HMD.HPL. 

* HPR,.HSLjH 5R»I2 » L V M * P A »-PAM.PA2>PC i PGL..PGS . PLA , 

* PPA,PPl»pP2*PRA»PR| .pVS.QAOiULN.QLO.QPO.QRF.QRN, 

* R OxQ V.O ,ti? AJI.t RAFJ »RBF.iRPA iRPj .RPVjRSM.iBSNiR V_G.i R V M j .. 

* RVS.IJ .VAEiVAStVBD.VlM.VLA.VLE.VP » V P A * VPE • V R A i 

J! , .. .. . VR.c.,.VRE.»VV_E»VVR.»VySj.\LVJ»Vys.,X . tFUN UE.UN2 » F-UJL3.. . 

* FUN4) 

REAJ L-2 ».L-\LM . 

DIMENSION FUNl ( 1 4 ) .FUN2 < 14) ,FUN3 ( 14 ) ,FUN4( 14 > 

. ..REAL - LVMjI t. LF.P.i L P D i K E . K E 1 , K OP , K 1 R . K I E , K I . KC D , KFD . KN 1 .KM3 _ 

REAL NAE»MEO,NID.NOD,1I ,LPK,KID,M02,N0Z»KCZ,HPL,HPR, 12.I3.MMO 

COMMON/ARRAX/T » J *VB Dj YVS»VPA. VA S., VLAiVRA.i YAe. P A...P AMj LVM 

VRE»PRA,QRN,vPEiPPA.PP1,cPA,RPa.RVM»VLE»PLA»QLN»PLI. 

. .AL.a.»R?V.iJ?PTiP-GL,QP0.«S5 ».V VE .X V8 ►PiLS-t-PS V »AVLG . QV^-*A VE~. 
COMMON/ARRAY/CN2.CN3 iRVS»pgs»RTp.QAO»qRO»QLO,DVS.DPA.DAS»DLA»DRA, 

P A.lo.Ail C I AJJ 9„. A U tsl jA UA» A U.2 ,JlU B,,J7 Ajj . A LI J JAIL . A U Go. A U J 

AU9 .AUM.AU4.VIF iPOl »PT t . pTS.PIF .CPI .PTC.CPP.PPC.PVG 
CGMMON/ARRAY/.PC .PC0.VTC.PLD , VXL . V To . v P D .-DPl * CPI .DPC..OP-I »LPB » DLP-,. 

OPP ICHY .PRM.PGR.CPG.PGP.GF l »PGx .PGC.PGH.PG2.VGD. VG . 
... EPH.GPU.GEZ.GPD. AAR. RR . RF-N-. APq i GLP .PFLa.GILR4 .TRR > VUD. - 
COMMON/ARRAY/REKiNOD .NED .NAE. VEC »CKE tKOD.KEI ,KIR»KIE»KCD»KED»CK1, 

JCNLA.»CCD.»V.IDjJ<E. . (Ci ...» V_I C ». I I. ...VXY.+Z Z.U*R2 » 

OFZ.X .12 .PRl.VTS.VP fPRP.lFp.GPR.KN3.KMl .AMR. AMP 
C0M.MQN/ARRXY/AM1 i A M C . A.M 2.. a MX . A M 5 . A M . c NE.+ AG K . A UP 1 AN l ,-ANC i-ftN2 t-ANAi.- 
ANS.ANM.VB .HMl.HM • B 1 .VIE.V1B.V1M.RC2.P02.RKC.RC1 » 

RCD.VRC.RSN-. OVA. BFN.OQB. AXIM . P- 1 <3 , OSV -»-P- 0T...P-0D , R-0B-.AR4-- 

COMMON/ ARR A Y/ AR2 » P OC . AR 3 . A RM . C NB . GFN . A H7 . A He , AH .AHC.AHl > AH2 t AHR . 

AHii jC.NX.CNS.iVV 1 ,.Y. V 2. . V.VS.. Y.V.UV.V UXYJ) i.V.T ULt HSR j MS L > N U 4- 
SR .VVR.RAR.cV .CN7.AUX.AUK.AUZ.Y » CFC , CPK , PC£ 1 CPR 
JL.QHMJ3NAA8XAX XLPK tDEO ,HYL lXlD-. AMT.j ANT.-POK >PQN »A-UCj 1L2K.UXK-.CNR ,CNZ-».. 

AHK.SRK.V9 .V2D.Z1 »Z2 ,z3 .ZB ,Z5 »Z6 .Z7 .76 iHMK. 

.ttKMjJ’ Q.V jJ?,OZj.RDO-. QOU RBEL. WOZ.BHA . P-0 Y t ANU .-POR. GF 2-^HMD,. 

COMMON/ARRAY/DHN.POQ. 13 .U » VP 1 . T I iGF3.GF4.AUP.AUV.RVl.AUY. OUT. 

DSP .AHZ .ALLY j OSA . P P X > C Pjg j p 0 SjJ? LF 4A.Pa.1 PPN lEEO . pF iM> F.E j. 

VPF iPPR.PMC.PMS.PMP.HR .cPF.PCp.DAl.DLZ.DPY.DPZ.GPZ 
COMMON/.ARRA Y 4N0Z.I KCXj.V I-Z-jHPR .NPL.iSTH , ALO . EJtC jD2M i P-AA ..p.R.2 .-5V0-. AUL . - 
VVV.02A.Q1 »EXE»ARF»QRFiRSM,BFm»RAM»OVS»PVO»RMO«QOM» 

— - P.M0jJ>2tUMMG.».RX)D.paEjAMN.A5lK^P0M.JjMM.PMl.»PM3.pM4.EXl — 

COMMON/ ARRAY/Q2 .S3 .PM5.pKI.Z9 . Z 1 0 » Z 1 I » Z l 2 , Z 1 3 . Z 1 R . Z 1 5 . Z 16 » PK2 . 

. P-K.3 » F.1Sj S.TA .FAR j GB L j ALLY *aJJZ.ANX.»AN.VjANW.ANR-.AUQ^AUR^ 
AUS.A378.K1 * A 2 ,A3 , DUMM Y ( 1 9 I , T I TL^ l R 00 ) » DUmN Y ( BO 1 

.C0MMDN/NLIMERO/K..N0 t 201 .NTlMEC.UNXTS+NZ .NT1MEP ,NN .MAXNO.NTIME . 
ccmmon/store/ngi . ng 2 . ng 3. ngb.ngs.nG6.ng7.ngb.nG9. dt.tlp.tnp.no, 

TMiTMM.NFI RST »ZZ ( 15I-.0LY ( 9) ,0BY<9) .YMlNl LO J .yMaX < 10) , 
N.PT| 18) , BE T A ( 10) .NGRAPHI I 0 ) , GR AP H < 1 0 > • HE AO I 1 9 I » NOEXp 
-.OTMAX . _ 

circulatory .dynamics block . 
hemodynamics 

VBD*VP+VPC-VVS-VA5-VLA-VPa-VRA 

„V VS = V.VS + DVS*12i-.VB0*i39B6 

VPA*VPA*DPA»I2*VBU*. 1SS 
. .,VAS*VAS+DAS»I2+VBD*.261 



. .. Q0126 

58* 

VLAsVUA + DLA* I 2 + V B D * « 1 28 

00127 

59* 

VRA»VRA*DRA*12* VS 0**0579 

00 1 3Q 

60 • 

VAE-VAS-r.lfS 

0 0131 

61 • 

PA«=VAE/. 00355 

- .00132 

b2* 

. . . !F«PA*L'r..0.> _P.A".Q001' 

00139 

63* 

P AM= 1 00« /PA 

00135 _ 


. -EA2." P AZA.U.H .. 

00136 

45* 

CALL FUNCTN(PA2*LVM,FUN1 ) 

. 0J31 3 7. - 

J 6* 

.. VRE = VRA-,1. 

00190 

67* 

PR A*VrE/ ,005 


5HU.HJ i&* .C AL L.. FJXN CXU ( ?JRA.i.Q.RjU£llU 2 L. 


00192 

69* 

VPE-VPA-. 30625 

00193 

..7JL* „ , 

f P A* V P E/.m D 0 9 8 

00199 

71* 

PP1».026*PPA 

001-95 

22* 

1 F ( E P 1 j LT » 0 1. ). _P P 1 = 1 Oj.* • ("421 . . 

00197 

73* 

R P A * P P 1 * • ( - . 5 ) 

.00150 

79* 

_ PE2*PP_AZAUH ... 

0 D 1 5 1 

75* 

IF (PP2.LE.0. ) PP2* » 000 1 

.. _0.0 1 53- 

—25 • 

— CALL FUrtCUM.LPP2..EV.M f Fllt>J3 1 

00159 

77* 

VLE*>VLA-,q 

00155 

... 76* 

_ELA*VLE/.OJ 

00156 

7 9* 

CALL FUNCTN(PLAiQLN,FUN9) 

- 00157 

-80* 

-RPV»-U/1PL-A*20.J-4*03S7- - - 

00160 

6 1 * 

RPT=»RP V*RPA 

— 00161— 

- a 2 .«. 

..P.GI.bPPA-PI, A 

00162 

83* 

QPO-PGL/RPT 

. 0.0151 

a.9*._. . _ 

A N U aA-Nrt. 

00169 

85* 

IF ( ANU*LT. *8 ) ANU»,8 

- 00166 

. 86 1. 

V V £g V V-S - V-LR-M ArtUM , 1 *A N X .. . 

00167 

87* 

VV8=VVE-VV7 

-0X11 7.0. .. 

a.a* 

IF ,LV V.JU.L-T ...HOD UJLV-flj win n_l 


00172 89* PV5 a VV8/C V 


&OU7.3.. _ -2.0* PR 1* ERA . 

°0179 91* IF 1PRA.LT.0, )PR1*=0. 

— 0-0 1 7-6 52* R V.G* 2-*.7-3 8./_P-V_S 

00177 93* QV0-1PVS-PR1 l/RVG 

P -J2nj D CN3-CM3*! 1 i PC-l 7. ) *CN7-M 7 - l »CN?.rN3 1 . t 1 

00201 95* AVEMAUM-l.l*AUY+l, 

QU2JJ2 1A* S VS a -AVE 7 I-U-ACN3l-tV.Irt.fi UMiJ*U . 

00203' 97* PGS“PA-PVS 

_ ...HO 20.9 5L8* RSN t RAR * AiLHrtA MU* AiJ MtP.ArtfJUtL+.R V-SA-Lil-i 

00205 99* 8FN»PGS/RSN 

0.02-06. LOO*. _R5.H-P.A-bm* y.llL»PAli *Jl!rt» AflM ,» RAM 

00207 101* BFMoPgs/RSM 

0CL21O .J02* QAOtaFtJ + aEM + REF* l EA-ER A.) * FlS . . 


0021 1 

103* 

QLO a LVM*QLN*AUH*HSL*HMD*HpL 

. 00212.. 

109* . 

-OR Q? OR MM 11 «-QRF ).* AUrttR VM * HSR*HHD2 Up,R + Q RALtQL-O/JJL^ 1 

0021 3 

1 05* 

QP0»QL0* t QP0-3L0 ) /U 

_ , .HEL21.9,. 

. U36.* ... 

UVOsQRQ ttJ3.va=OR012X - 

00215 

107* 

DVS=QAQ-QvO 

00216. 

1 08jl- . - 

— DPA«QRO-j,QP0 . 

00217 

109* 

das«qlo-qao 

002211 

no* . . 

DLA“QPQ»OlQ . _ 

00221 

in* 

DRA*0VO“(3RO 

00222- . . 

1122-.. . 

RETURN . .. _ 

00223 

1 I 3* 

END 



DOJD! _ . 
0 D 1 0 1 
0D1QI.. 

00103 
00104... 

D 0 1 0 'M 
QO-10 4- 

00104 
00104 
00104 

00104 

00105 

00106 _ 
00110 
0101 1 1 
00112 
aoi 13 

00113 
D01l3„ 
00113 
DO 1 1 3. . 
00113 
.001 1-4 
00115 
.001 17... 
00120 
00121- - 
00123 

-Q0L2A 

00126 

QJO.l 3.0 

00131 

aai 32 _. 


00.1 3 3 

00135 

00136 


1* „ 

2 * 

3* 

4* 

S* 

6 * 

J.f . 

e* 

. 9* 

10 * 

_U«. - 

1 2* 


. . SU8R0U.UJ4E AM.„^HC„,4MPjA!jR»AHT < A11 .AwM,CKE.,P4aX,FUNJ^ .. 

* AGK , ANC , ANP ,ANR, ANT ,ANV » AN«I, ANl ,CNA ,CNE,GFN, 

• . . I. +J?EK,A2 , A 3 1 . . 

DIMENSION FUN7 (14) 

REAL 1 - . . 


C 

„C * *.* * ».* iXJ SJL9 * **_*•-*.* f *..*_♦ SJS.tJ»* i < f M * * % %3L * * O-t* *•»».*»»*•* *JL* MJJ UU »MI * 

c 

C ALDOSTERONE control. block. 

c 


168 AMR“CKE/CNA/A3-A2 


. -1.1* .IF (AMR « I. T « 0 « ].AMR*n. _ 

14* CALL FUNCTN ( p A i AMP , FUN7 ) 

_ 1 SM AMla.AM.1 + (J1MM.*AHP*.AMR-AH1 1/.Z ._ _ 

1 6* AMC=>AMC+ (AM1-AMC)*(1,-EXP(-I/AMT>) 

. 1.7_t - ... AM *20 •.0.35- 1 9-fl.«EXP [ r 4.Q3 9_L*A MC L ... 

18* *•****••*•*•**.* 

1.5ft. _£ ... 

20* C ANGIOTENSIN control block 
2 -U- . -.c . _ . — 

22* C**»**»* * * * 

..23* - . CNE:al.52.^CWA • - - — 

24* I F ( CNE.LT , 1 . )CNE“ 1 . 

25*. . ANR.= !_U 7.».73 r GEJsl .*£ N A 1 • A GK*4-^Lf R£ K.. 

26* ANWbANW+ ( ( ANR- 1 « ) « 1 0 i-ANW) *ANV*I 

27t_ J_ELLA (L1S-.1..T •.».□ 1 AMWsU . 


2 S • anp«anr*amw 

,._.29* „ .. .1 FX ANE • G.T * 1 00 .-1.ANPp4.Q0 . . . 

30* ' IF(ANP.LT..01)ANP=.01 

31 * kills l ti 1+1 A N P - A N.UJJL . .... 

32* ANC«ANC*< AN1-ANC) •( 1 .-EXP (-I/ANTU 

23«— . — . . AALMi»4.0^3.3.*ElXPl^.O^67*ANc) - - 


34* ,IF( AN.MfLT, ,7) AHMa.7 

35*’ RETURN 

36* END 


END OF COMPILATION 


NO DIAGNOSTICS 





00101 

1 * 

OOlOl 

2 * 

00101 

3* 

.00103 

. . .4* 

00 103 

5* 

• OX) 1 0 3 

6 * 

00103 

7* 

00104 

8* 

00105 

9* 

0010-7 . 

-4 0 * 

00111 

11* 

00 l 12-. 

12* 

00113 

13* 

-oo-l H 

- 18* 

00115 

15* 

-00116- 

1 6 • 

00117 

17* 

-00120 

18* 

00121 

19* 

00122 

- 20 * 

□ 0123 

21* 

■ 00425 

- -22* 

00126 

23* 

-004 27- - 

24* 

00130 

• 25* 

-00130 

26* 

00130 

27* 

- 001 >0 

• 28* 

00130 

29* 

004 32 

30* 

00 133 

31 • 

00134 

32* 

00 1 35 

33* 

-004 3-6-' 

34* 

00137 

35* 


SUBROUTINE K JIJNEV ( AAR » AHM » AM »APD»ARF»AUM*CN£*CNXiCNY*6EE»GFN*<jFR| 

* 0F2 » G| r J * Gfc'4 »<aLf’ * I » N AE »N-EO »-W I D-» NOU>NOZ » P A »P-Aft-» 

* PFL*PPC,RBF»REK»RFN»RR , STH » TRR . V l M * VUD ,Z ) 

REAL I »NAttNEO-»N10*NUU-*MOZ ... — - - ... 

C 

C KJO.MEY DfNAH-lCS AND EXCRETION- BLOCK - 

C 

1H2 GF3a{ <5FN/. 125-1. )*GF‘i) + l-. 

If (GFJ.GT. IB. )GF3=15. 

... . IFUF3*.fc,T.**44GF3»-*<l .. — . — 

AAR»3 1 .67* V I M* { AUM*ARF+ 1 .«ARF > *GF3 

. RRaAAR*5l»<*6*VlM - - - - . — 

PAR*P A-GBl 

RFNaPARyRR • - - - - - 

rbf»rek*rfn 

ISO . APO=AAR*RFN - - 

G L P * P A R - A P 0 

PFLaGUP-PpC-lA, — 

G F 1 s» G F N 

GFN=!GFN+(pFL*»0O7tJl-GFN)*<>F2/2 • - - - 

IF (ABSIGFN-GFl > .GT..QU2 )Gu TO 142 

TRRa .8 »GFR + *i32i«HEK-»OlU *NEK/AM/AHM 

- VUUayLU4)-*4^FR-K-TRK-VUD-)-/-Z - ------ -- 

IF I VUD ,LT. .QQ02 ) VU0“. 0002 

C KIDNEY SALT OUTPUT AND SALT INTAKE 

C • (SEE ALSO ELECTROL-yTES ANi> -C-ELt WATER- BLOCK-*- - — — 

C .. 

NOZ = 1 000 .*VUD/ AM/ { CNE/ONX + cNY > • - ■ ■ 

NOD=NOO+ ( NOZ-NOD) /Z 
NEOaN I D*S TH-NOD 
NAEaNAE + NED* I 

RETURN . - .... ..... 

END / 



~~ 0.0401 

1 * 

00101 

2* 

00103 

3* 

00103 

4* 

~ 00103 ■ 

5* 

00103 

6* 

00103 

7* 

DO 103 

B * 

Q0103 

9* 

00104 

10* 

ciai^s - . 

- 14* 

OOIOS 

12* 

00105 

13* 

00105 

14* 

- 00105 

15* 

00105 

16* 

- - • Q-U 1 0 6 

1 7* 

00107 

16* 

- 00110 

19* 

00U2 

20* 

- -00 112. 

.. 2 1* 

00112 

22* 

— 004 12 

...23*... 

00112 

24* 

- OOU-2-- 

2ft* — 

00112 

2 6* 

OO-l-l 3- - 

27* 

00114 

28* 

— OO 1J5 — 

29*-. 


SU9R01I-T I N£ M I S G 1 ( AHH* AU '*► AU8 , I - ,SR » SRK » STH » TVD# T-VZ-» VEC+A/4 C* V-T-W-* 

* VVE»\/V6»vV / tZ ,V?) 

REAL I 


C 

C VASCULAR stress relaxation 8L0CK 

C 


VV 6*W6+< 3R« < VVE-V9 

V.V7.aVV7 + VV-6*4 V.-EXTM-Wft«K) )• - — - 


****#*##***♦». 


c 

C** ! 

c 


c.** 

c 

c.. 

c 

C* 


THIRST AND DRINKING BLOCK 


TV*~( *Ql *AHM-*009 1*STH~ 
TVOttT VD+ U VZ-TVD ) /l 
IF( TVD.LT.U. ) TVD-O. 

VTd = V IC+VEC 


. -a ut-q.ro ntc CONTROL block 

ADAPTATION of sarorecep tors 


1 ** •»*****#**♦ * I 


Ad 4 -s=AU 4 +Aij 8 *I 


RETURN 

END 


END OF COMPILATION 


NO diagnostics 



Ool 0 1 

1 * 

.. .. P01Q3 

_-2*. 

00103 

3* 

00103 

H* 

00103 

5* 

.. 00 m3 

6* . 

00103 

7* 

0.0 J.0.3 „ 

.8*. _ 

00 1 OH 

9* 

.00105 

. 10* . 

0010 s 

1 I * 

00105- 

.12* 

00 105 

1 3* 

.0.0 LOS 

„_iJ*._ 

00105 

15* 

.. _O0j.a6.._ 

. .. .16*.. 

00107 

17* 

- 0011 1_ 

. 1 8* 

00113 

19* 

clelu a .. 

2fl*. 


SUBROUTINE MI SC 2 < HPL .HPR.HSL ,HsR, I ,PA,PPA,P0T.STH,Z10,711,Z13) 
.REAI I „ ... ... _ .. 


HEART HYPERTROP-HT OR. DET.O I ORAT-I ON BLOCK- 

' * * *_* * *_* *.*♦..** ** f * * *. * • * *.* * * * *_**_* ** * * * * „* *J> » *.* *J ft.# +-*.*,* * tjfe JMULfcftJUIkAJL* * *.*Jt * * 

HPLaHPLM ( ( PA/ 100. /HSL)*»Z13 )-HpL)* 1/57600. 

HPR-HPK'M { (PPA/1 5jl/ HSR } * * Z 1 3 ).-JdPi? )-*.J / 5 7 6 00 ♦ . ....... . 


TISSUE EFFECT ON THIRST ANq SALT INTAKE 


_ST.H-fZlOBfiO-T.UZXi. . 
IF (STH.LT, 1 . 1STH-1 . 
.1 F l S T.H» Q T . 8 » )S JH.P 8 . 
RETURN 

. . . .. .. ...... . . . .. . . ... . ... . 


► ******* 


END OF COMPILATION; 


diagnostics. 


- 3 , 



.fl.Di.Jl l„ _ 1 * §i! BP 0 LLT LM-E-itA 5 C,k£J jA L 0 ».A M tl» AJ1.M #AU.P.» A 5iK_*-S F,Mj_EJ( C ., H M # X - ,-MMil*.OMM+.OSA^ J. _ 

00101 2* * OVA,0VS.,02A,PD0,PKl , PK2iP«3 ,PM0,PM1 , PM3 , P»4 i PM5 , 

DOJJU-. -3*~ * - . P0£,P0M,Pi/0,P20»Gl0H,PM0fVpFr^5 ’ 

□ 0103 4* REAL 1 » M HO 

-0 0 J 0-3 . .&* _ C .... . . • 

0 D 1 0 3 6* .C MUSCLE BLOOD FLOW CONTROL AND P02 BLOCK 

J2H4.Q.3 .7*_ C. . . . .. _ . __ .J . 

00104 8* 180 0SA=AL0-VPF»,5 

..QO1.0S. . - - 9.* . . . QVA-*.0-SA*HMJ»5* ...„ , ... 

00106 10* 0VS=0VSM ( B F M • 0 V A -RMO 1 /HM/5 . / BF M-0 V S ) / Z 6 

.00LQ7. -U5 PV0o57. 1 * OJU-S ._ - . .. - .. ._ . 

0 0110 12* RMOa ( P VO-PMO ) *PMS/ < PM 1 **PK3-PM < M 

.QQ.Lil.-. IAS — flOtM.aJjOMiXRMOiS.MMOi * (J.»j?EXPi.r. I /Z5JJ .. : 

00112 14* PM0»PK2/ ( PK 1 -QOM ) 

-004 1-3 - „ L5.* BM4J5PH0- - - - _ . . - -- 

0 0 1 1 4 16* IFtPMl *LT.PM3)PM1=PM3 

JQOU-6 1.7.#’. Pzaa.RM£L - - . . . : 

00117 18* IF1P20.GT.8. >P20«=8. 

JDJ2 1 24 _L5.*„. _ AOM 5.4 A UP =4 -*i JtQ.2 A.+ 1.* ... , u 

00122 20* MMO=»AOM*OMM*EXC* ( 1 .-( 8 . OOQ 1 -P2 0 ) **3 . /S 1 2 , ) 

-.0J3423 2iJ* £b£L=PVQr40* - - .... ..... ; 

00124 22* POEoPoH*PDO+ 1 , 

.001.25- „ . _2A* _ LFXPOE-.L 1**00 S4 fi.0£5 4.QO5 - . .... . 

00127 24* AMMbAMM* (POE-AMM ) « ( 1 ♦ -EXP ( - 1 / A4K ) ) 

0 - 0 13 Q._. — . — 25 A- — ■ i— . — . .RE I U R AL — — . — — < ... — — — -... . — . . . ... . . . ... . ... — . . . . — .... — . . . ... . ... . . . . . ._ . . ■ . . . . . „ 

Oom 26* End 


. . .E.NJ5 Of- COUP I LA JJ ON; NO Ql AG NO ST ICS* 





-o 

—5 



. ..0Q10J 

. , .1*. 


DO] □ 1 

2* 

c 

00101 . . 

3* 

. . c. 

00103 

4* 


. 00,10 6 . 

. ,.5». 


00106 

6* 

c 

. qojd.z. .. 

7..*. 


001 ID 

8 * 


XJ 0 1 12-. . 

?.*. 


001 1 3 

10» 


• 001 i 6_ . 

.a i» 


001 1 7 

1 2* 


. Q 0.1 2.1 

. J.3* . 


00123 

1 4# 


- Q 0 l 2.4 _ . 

.L5A. 


00124 

1 6* 

c 

...00125 ... . 

- L7*. 


00126 

18* 


— PO I 27 

.. I.S.*. 



--- ? M.P.R OUT LN. E . J?AJS.EJL .... „ ; 

THIS ROUTINE ASKS FOR HARO COPY 
THE. PAGE I.S THE M — E R R A S E.D AND. CUR 
DATA 1 NO/ * N * / t I YO/ » y * / 

S ..CAUL GOTO£HU.H.,i). .. 


UNTI 

SOR.' 


LL N 
MO-VEo 


IS E 
~TO - 


NTERED 

home* 


CALI — BELL 

« R I T E I 6 , H ) 

••LI FORMAT.!.* HAao..cop_y 
fi READ ( 5 t 1 2 ,ERR«8 ) J 
12 F.QRMAT(AH) .„ 

I F ( I « EG) , I NO J 60 
~~ LE1I •-MJE. U.YQJ. .60.. 
CALL HDCOPY 
... 60.. TO. -5... . 

25..XAUL UEWiLA G .... 

RETURN 

. ... e.nd . 


JiLA N.T E D.(X»-N ) «_■ , U ~ 


TO 

T.O. 


25 

..S— 




end OF COMPILATION: 


NO DIAGNOSTICS* 



UUIU1 l * 


. .00X03 

2 *. 

0010*1 

3* 

— Q 01 . 0 JL.. 

a* 

00105 

5 * 

00106.’.. 

4* 

001 10 

7* 


00 14Z - _ 8 *. 

00113 9* 

onixx ins 

00115 11* 

00 11.6 . 12*. . , .. . 

00123 13* 

00123. .14.*... . 

00126 15* 

-.00X24 1AA.. _ . .. 

00130 17* 

.0.0130... .. I.B.*. 

00132 19* 

.001X3 -XOA 

00135 21* 

-_D01X5 22* _ 

00136 23* 

00132 _.2*1* 

001*13 25* 

.Q0X<i5_ ... ,26i 

001*17 27* 

-JUllAl ZB*. 

00151 29* 


_ 001 S3. 3n * . 

0015*1 31* 


SUBROUTINE PL0T33 

C 0 XMjQ CJ /.UlinE R Q./JC 4 MQ.L2 OX , 

COMMON/PPPPPP/PLOTBF! 10 1 , 6 > , RUNSTP . I Ex EC 1 , IPLTPT 

1 . .XU. 0 J B E. U U.U 4-K.5XXEE . 

DIMENSION TSTEPX!*!) ,TSTALP(* 1 > 

DATA TS.TEBX/, 0166666.7, L»t60. ,1*1*10./ _ . . 

DATA TSTALP/ 'SECS' ,,'MJNS' HOUR' « 'DAYS'/ 

CDCWIOAI/ ARRAY/AMQO ).».T4 TLE (*1001 ,CjOL(2U4 ►ALPHa-1 20-1 — 

COM MON/STORE/ JUNK! 1 1 8 > , HEAD 1 I 9 ) , NOEX P 

_Q XMXN.SXXN.. I J.D A SI JL, 2 1 J.ELP A3SX6. » 3 1 

DIMENSION XNO ( 5 ) 


D A.TA-. ISAY *. S .'/j-IN/lM. 1 / » I -Y / t Y - »./-*lP-U- / » PUaT-* /_ 

IS ■= IPLTPT - 2 

IF UP.LTPT ...LEL, .21 . GQ_ to X - . _ „ .... 


IF ( I EXEC I .EQ. 

1 XQ -TQ.?n 

ipll 

.AND. 

XSTOPP .EQ, 

0) 

I F ( I EXEC I .EG). 
-1 ...GO.-tO- 120- . 

IPLL 

.AND. 

KSTOPP .EG), 

1 > 


1 IS « 1 


c 


~ 41 WRITE (-6-^24. . . . ... X 

2 FORMAT!* GRAPH OUTPUT (V AN TED ( Y * N » S 1 , T 1 ME 1 NTER VALS 1 A*1 ,F2 . 0 

1— ,X!.1».«jlU_ 

*1 REA0(5.3.ERR = *H I.TSPLIT 

3 .FORMAT! A.*f ,£L2._al 

IF! 1 .£Q. ISA) GO TO ID 

JLEJJL .E-GU-IN). .SETURJJ 

IF! I .NE, I Y I GO TO 11 


HERE TO BUruD PLOT 

ILS2T -EL. T SPLIT 

NOP ■ 0 


PARAMETERS. 


1 GJ jl — 5^-t- XQ to 14- 


. .91 3X 55. 12* ..PU.,20 X.T.t4K_™_ _ __ 

OOUO 33* 17 (VR1TE16.5) ALPHAlt) 

1 x 1 ax* :5 _ehrhaix.’^. . ax a .ixxxljl_s cal e la^bx, ex ,d.» ?f^ , n > i / 

00163 35* 1 • PLOTlY.N.S) LOC HIGH LOW ...») 

. JJ3X6iL__.__16*_ Z..REAnL5j6_».ERK®7X LIX*A£X. XP2..XRX. „ 

00172 37* 6 FORMAT! AS, 8 X , F*1 . 0 , 2F 6 . 01 


-OB 123 

.„3fl* 

LEX 14.. ..E.Q., 1 YJ...G.Q . TjD_L8 

00175 

39* 

IF! I 1 ,E0. ISA) GO TO J9 

.Mill 

ao* 

I El.I l_j3£.r„Ili) . 5 . a ia 12 

00201 

n* 

pparsu • n a o. 

0.0 2 Q 2 

*12 • 

60 TD 2D .. 

00203 

#3* 

IB IFCXPl • 1. E . D.) GO TO 17 

. PQ205. ._ 

-XX*-. „ 

.. J.F. 11F 1 X ( XPJ ). ,GT.. 61.G0..T0 

00207 

65* 

I F ! X P 3 * GE • XP2) GO TO 17 

JJ02U.. 

ftjfe* 

. .PPA.R51 1,1)..= XP.l 

00212 

a 7 • 

PPARS ! 1,2) = XP2 

00213 

~.XB*. .. _ 

PPARS (1,3) = XP3 



0021 8_ 

8 9*_ 

_ J 9 I.F(.lFI.X(PPAHS.(!,m ,GT« NOP) Ni)P 

0021 6~ 

50*’ 

I F 1 P P A R S ! I * 1 ) « L T « l.) GO TO 17 

00220 

51* 

.20 CONTINUE . „ 

00220 

52* 

C BUILD WHOLE PAGE GRAPH. 

00222 

S3* 

. 10 CALL NEWPAG . 

00223 

58* 

CALL MOVABS f 0,780) 

00228.. „ 

55a 

.CALL. .DMP5UJL _ 

D022S 

56* 

WRITE! 6 , 21 ) NO EXP , (HEAD (4) i J-l , 1 5 ) 

00238 . _ 

.52* 

.21 FDR MAX ( * _ *.U 8 » 2 X , 15 A MX- _ 

00235 

58* 

CALL MO V A BS ! 0 | 1 00 ) 

0O236l 

.5X4 

call afiXABSuanx-uaox 

00237 N 

60* 

CALL DRWABS t I 000.750) 

00280. > 

. . 6 J_*_ „ 

C AXL— OB StAB5.UL,.750J - . ... 

00281 

62* 

CALL MOVABS!300.750) 

00282 . 

63* 

CALL DRWABS ( 300, 10.0.) . 

00283 

68* 

CALL DMP8UF 

00288 

65*-- 

- .. — . IX J. TTSRT - u 

00285 

66* 

12 » 300 


— JDD246._ _ ,j67*„ 1 3_ J* — ZJQXL III— + -X-I 

00287 68* DO 25 I * I , I i 

.0025 2 ... .62.*„ . . 1_2_* 12 + -L3 .. . 

00253 70* CA|_L MO V A BS (I 2 • 1 00 > 

00258 71*. CALL- DRWAB5U2 ,750) 

00265 72* 25 CONTINUE 

-QD257.. _ 734 __ .. „ JLALL- 0MP.BX1E.. 

00257 78* C DRAW DIVISIONS FOR DIFFERENT GRAPHS • 

... 00260 ..?3* _ . 1 3 Y -3—650 . / — NOP - — - 

00261 76* MY n 1 3 Y / 2 

.00262 77JL- . . - .11 » NOR «_ 1 — _ . - 

00263 78* 12 * 100 

. 00 26 A. 1SLA .IE(X1_.LT j _.1L.GO-10l 280 

00266 00* DO 26 I = 1 , I 1 

. . 0.0271 ax* _ LS-J &_L2 *■ _MY - 

00272 82* CALL MOV AbS ( 300 > M ) 

.00273 aX*. -CALL 05 W-ABSl 3C3U-9 ) ■ 

00278 88* CALL HOVABS ( 995 , 1 8 ) 


. 00X75 aX* XAXX.41fiJtABS.U000 . LHJ t 

00276 66* 12 = !2 + I3Y 


0112X7 .. 

B 7 • _ 


CALI aaVJLBSLO.,LXL • 

00300 

88* 


CALL DRWABS! 1DD0.I2) 

— . 50301 

. —85.* ... 


-CALL.-DM.PaUF — .. 

00 302 

90* 

?6 

CONTINUE 

0031)8... 

9 1 * 

— ..250 

L8 b _X2.. + MY — __ _ ... . 

00305 

92* 


CALL MOVABS (300, 18) 

00306- 

.53*. ... 


CALL DRHABSL305 , MJ. 

00307 

98* 


CALL MOVABS! 995, 18 ) 

003 LO 

- 9.54 

_ . 

CALL. DRWABS tlOQO ..Ml .... . 

0031 1 

96* 


CALL OMPBUF 

0.Q3JI 

.. _$.Z* 

-C-.. ADO ALPHA. _ - . - - 

00312 

98* 


1 1 = 750 

503 1 3 

99* 

. _ 

10 UP -x-4 

00318 

l 00* 


CALL VWH'OO ! 0 ,, 1023. ,0, ,780. ) 

00315 

- ..101* 


CALL Sfl I NDO.IO ,4023 .0,780 1 

□ 0316 

102* 


DO 7n I = 1 » NOP 

. Q.D32X- 

.303*. 


111. = 11 - . . 

00322 

1 08* 


122 = 11 - I 3Y + 30 

00323. 

. . LOS* 


10 = 0 


P.pARS.l 1,1) 




0,3,2 .JD6*.. . ,00 60 J = !,K . _ . _ . . ...... 

00327 107* IF f ! F I A < PPAliS ( J , 1 ) > « NF. • I) Go TO 60 

00331 108*. CAUL MOVAfjS 1 0 , II 1 1 ... _ 

00332 109* CALL ANMODE 

00.333 1 IQ* . CAUL PMPBUF. . . _ 

00338 111* WRITE<6,55> Alp H A ( J ) , PP A R s t J i 2 ) 

001.80_. . ,.U_2*- 55. .EORMXL* .Lxt3,X*k!>j£Jlj 2.1 _ ... 

00381 113* Y I a ill - 11. 

003H? .. 118*. . .. _CA L.L . MP YE ALl Qj.j YJ j _ _ 

00393 US* 1 F ( I D « EQ • 01 GO TO 810 

00386 117* 1 D 2 - 0 

P.0.3 aZ_. J LSI CALL OSH ARC ( l n4* tYl f I D . 1 0 1 « 1 D 2 , I.DU R1 

00350 119* GO TO 91 1 

00351 120*' 410 CALL .DR AW A LI 08 « «.Y 1 1 . • 

00352 121 * 41 1 CALL MOV ABS ( 0 , I 22) 

00353 122* CALL -AAIM0QE- 

00358 123* CALL DMPBUF 

. JL03.55. . _UtA* .WRJ-T.EiJLt.55 1 ALHHALJJ J^.3J ' __ 

00361 1*5* Y I c [22 - 13. 

.. 00362. ... L26-*._. . CALL. H01LE-A! 1 a. itU .. „. .. — .. - 

00363 127* 1FIID .EQ. 0) GO TO 813 

003 65 „ L26 • ..... _IDi *. 0. . — - . . — 

00366 129* 102 * 0 

„ 0 0167 110* C AL L-J> SilA-gf. LI OJLu Y 1 ..J.Dj-J D AjJJL 2 >.nUlE_) 

00370 131* GO TO 815 

. 0 0 3.7.1 .-.I.32JL B 1 3 CALL. D-HAWAtlOiU+nJ.. — - 

00372 133* 815 ID = ID + 1 

0X1323 _im.*... .. . 114 .« .U 1 - 24- — - - - 

00378 • 135* 122 * 122 + 21 

. _ la 125 . i.iA* 6i_j:o.(aibUJ£™ ... 

00377 137* l 1 a ! 1 - I3Y 

. . 0D9.OG. . _.i-3.as -20 .CXLNT441U.E _ . 

00802 139* X = ( RUNSTP/TTSPT ) ♦ .000001 

00808 181* I F ( X .LT. 1 « ) I n 1 

._0QiDA -l.il* LEJA_.ufiLE.j_ 61^J._1 _a_1 

00810 183* IFtX .GE. 1880.) 1*4 

..01.412 14)41 X.«.X 2_2.sTEPXl.il 

00813 185* X 2 « TLOTBF(l) / TSTEPX ( I ) 

00.814. 19A* X 1 . 5? _X2 - + X. . _ .... . 

00815 147* II « TTSPT 

01 416 , L4fl* lD_2E.L_a_.l OJ. _ . — — 

00421 189* X NO < J ) * XI 

, 00.422. . _150*_ . .. JU. ■ XI + X . . 

00823 151* 75 CONTINUE 

00.825 . 152* . .CALL. AOVABSIO, 1 004 .... 

00826 153* CALL ANMODE 

. 00427. 45.4 *_ ... „ CALL DM.PELUF . _ — . _ ..... ... 

00830 155* I F t TTSPT ,GT. 8.) GO TO 80 

. 00832. 156* „ I F ( TTSPT .ST. 3.1 GO TO. 79 ... 


00838 

157* 


WRITE! 6,93) 

X2 

* t X N 0 

( J) , 

J«1 

,3) 


_0!4H3 

L5 8 *_.. _ . 

.93 

FORMAT!* *» 

1 5 X 

,F6«4 

, 14 X 

.F* 

. 1 . 1 1 X,F6. 1 , 10X, F6. 1) -- 

. . 

00888 

159* 


GO TO 85 







00 4.45 . 

-16.0*- 

.. .7 9 

„.i*f R I IE [ 6 , 7 7 ) 

X 2*1 X1LQ 

! J).» 

J-?l 

»,4 L. 

. » M. Mt J « < w 

00454 

161* 

77 

FORMAT! ’ ♦ , 

1 5 X 

,F6. 1 

,6X, 

F6. 

1 ,7x ,F6. 1 ,6x »F6» 1 ,7X.F6. 1 ) 

CO 

00455. - 

. 162* 


GO TO 85 





, 

H 



00.456 ^ . 16 3* 

00465* 164 V 

.0046.6 . 165* 

0047 1 166* 

00.471 . 167* .. .C 

00472 168* 

J)0 4.7.5.. _ X&.9*. . 

00476' 170* 

QQ5DQ. . .17.1*.... 
00500 172* ' C 

JJ.0l5jq2_... XZX* 

00503 174* 

.JL056.4 LZ5* 

005O5 1 7 A* 

00510. 117.* 

00511 170* 

00512. . ..tZS* 

00513 100* 

005.16... .X81A.1 

00520 162* 

.00521-.- -l-aUL'- 

00522 l B4 • 

00523. -1B5A. .. 

00524 186* 


«0. WRjJEJ6,flJJ, X?d)‘.J10.(J).iJ»Lj L .5) . 

81 FORMAT?' *’»1 1X*6(4X,F6,1 > 1 

85 ftRIje.li.06) T.5 J A t P ( t ) ... • . 

06 FORMAT! ' ' » 30X » * T I ME <'jA4t')'> 

.initialize .hash information*. • 

DO 90 J * 1.6 

UOHSXJL.U “.XL., 

90 CONTINUE 

... I.F ( I E X E£X . E <3 j _XPXX 1 - EE T SIR N . .. 

plot variables... 

IS2 * IS + 1 

L2_*. XEJL.TJ6X.-r — 1 

DO 40 I » 1 i NOP 

.. _ 1L P .IL. *t. .13. Y . _ 

IDAS * -1 

LOUP-* X- 

DO 30 II a 1 ,K 

J EXI£ -UU.EEAR5 Lll U_1 1- «_N EX- I.X.XO....T.O . AH 

Idas a Idas + l 

X. .* — T-L 0 T B F-I 1. ) 

XL - RUNSTP 

. . Y„b_J>PARS1XX*41 

YL * PP A Rs I I 1.2) - Y 


JO 05X5 1 BiS — XX.LL.XHXNDSt)UlU-i.Y.UXI 

.00526 188* CALD SW I NDO t 300 . 700 , 1 L . I 3 y ) 

00527.. ..102*— ... _ .. X. « ..IU)-tBF-t-I54_. — 

00530 190* Y « PLOTBFIIS.IJ) 

.005 31 -- 19X9 _. J F ( I-EXEd — •ALEX XELLX-50 _to 77— - 

00533 192* I F ( Y .LE. PPARSUl,2U GO TO 105 

0.0535 Xla* IXXFLOXBFaXSZ^M L. .SE.« ..56X55X1X^.21.1 — 6Q — XJ — 3p— 

00537 194* YY = PPAR5 (11,2) 

06590— - - 1.E5-* ' .GO. ..10 . 26 

00541 196* 105 1 F l Y • 6E « PP AR S t I I . 3 ) 1 GO TO 97 

60541 1 9 Z* : XF I RL6-T B E.t4.S2^Xl 1 - -• L- T - •— BEX R0. t -U-..XU- -66- XQ_ 3 q- 

00545 190* YY • PPAR5III.3) 

.6659.6 12..2S 36— CALI M6VXAXX *XYX 

00547 200* 1DUP * IOUP + 1 

-00556 201.* £ 1 . -1D1IP .IDLIP— .+— 1 ' - 

00551 202* CALL MOVEA(X.Y) 


. 00552 .261* . 60... 3 5. 1X1— c 152^X2 ■ 

00555 204* X * TLOTBFII I 1 ) 

*66556 205*. .X-S..6L6I6FX11XOXJ — 

00557 206* 1 F ( IDAS ,GT» D) GO TO 33 

.00561. . 207.A. 10.UE._P .X Dll P. * .1 . . _ _ 

00562 208* CALL D R A VV A < X t Y > 

065X1. . ..209*- 50 .TO- 3.4. . — — 

00564 210* 33 L ■= I IDAS! II . 1 ) 

00565 211.* HI,. 3..XIDAS.UU 21 — .. 

00566 212* CALL DSH A R C ( X , Y , I D AS i L » N . I DUP ) 

00567.... 213*. - . I IDASt 11. I.) s.L 

00570 214* IIDASt II .2) = N 

6Q5ZJ . 215* . .39 IFliauP .LT. 13 ) GO TO 36. ... 

00573 216* CALL DMPBUF 

.1)057,4 2X7.* : lOOP-s-l- — ... ... 

00575 210* ■ 35 CONTINUE 


.00577 . 219* 3 Q CONTINUE 



0060 1_ 

220* 

*10 

CONTINUE.. . . . _ . 

0060 3 

221* 


IFIIOUP .GT* |) CALL OMPBUF 

ogfios 

222* 


,lF.(SST0P p ,EQ ? _0> RETURN 

00607 

223* 

120 

CALL PAGE3 

00610 

22 4 * 


1 1* E.C I _ " -Q .. . . 

0061 1 

225* 


GO TO 1 

00.417 



.£t!P. 


END OF compilation':' 


NO DIAGNOSTICS. 




Ooi 01 

1* 


DD.LQJ 

.. 2* 


ooi 01 

3* 


0 D 1 0 3 

4.* . 

.. 

00103 

5* 

C 

- - Q0103. 

— .. 6*. 

a..-C 

00103 

7* 

c 


8L* 

c- 

00103 

9* 

c 

.. OD103 

ID*-- . 

_ jc- 

0 010 4 

1 1* 


_ 001135.. _ 

12-* * - 


00107 

1 3* 


DQl.lQ 

140 


Ooi I 1 

1 5* 


.00112- 

a 16* 

. . 

00! IN 

17* 


..00115 

IB.*. 

_ 

001 1 5 

19* 

c - 

— 001.15 

_ .20 f 

c 

00115 

21 * 

C- 

.. -0L01-U.- 

. -22*-_ _ 

r ,.a 

001 17 

23* 


.001 20 . 

24*„ _ 

. — 

00121 

25* 


„ -00122— 

Zh*— 


00123 

27* 



SUBROUTINE PROTEN < CH Y , CPG ,CP I , CPK , CPP t CPR , Cp 1 f DLP , DLZ r DPC , DP I , ORL # 

•_ - .._ fiPO*.a£X,£.PD,jGp.R.uI „ ♦IFP J .LP(C..,PC .* P C E ► E.fi X„ PJ? P_» V-G- *.. . _ 

* V TL » Z ,PPD) 

REAL I , IFP*LPK . . - 

TISSUE FLUl-OS-*.P-R.ESSURE.S AND GE-L SLOCK . 


PLASMA AND TISSUE FLUID PROTEIN 

135 DPL®DPL+ f VTL»CP I -DPL ) /Z 

. „ IF. (PC.LT,O^.)PC»0. - . 

DPC=DPC+(CPK*<CPP-CPI)*PC**PCE-DPC)/Z 

0£.I» DRC-HEJ „ . 

OLZ=»LPK* ( CPR-CPP ) 

..I F ICPP.G.T .CPJ? ) DLZjs4 ..*QL.Z 

DLP=DLP + (DLZ-DLP ) / Z 

PRPrPRP + LOLP-DPQ + DPL^DPC.^RF-D ) *4 

. _.Gf L. Pi! QTXJJSL O-YNAJUjCS 


GPD»GPD+(.OOPS*(CPI-PGX)*vG-GPD)/Z 
.GP.RrGT»R±G.P-D*I - . - „ „ . 

IFPalFP+lDPl-GPD)*: 

* HL IU.K H a ' . a . — mahi. a*., aav a t a. aaa v. aaaa a* >a 

end 


.•* JR •fjt.is,* Sf.r,5^Sf.F «* m •* 9LM LfRmJ? WL35JRJS 




.END. .OF .CQ.fc5P.LLA.UPN} 


NO DIAGNOSTICS. 



... 004 a 1 ..1*. -- 5UBHHUTI.NF. aULMDN< C.PF^CPP,CEN,D£P« I_ P_CP. + PFt-,f?UA^^U , »P.&S T .P^. t -Pf?C 

□ Dial 2* * PPO,PPI ,PPN,PPO t PPR,VP ,VPO,VPF,Z ,Z3) 

CLO 1,03 34. — 8E AI I - 

00103 *4* C 

...00103.. .. ~Sji _ .. X_. RUUtOMARJf DWAM4XS.-AND--Ft04 D-3 B-kOXK — ■ 

00103. A* C 

-. _D01.Oif.-~. - .7*-.. tP«.\4P-+4-VP0*.U /-Z3 

0010*4 S» C 

0044)5 9* ZOO~- .RXP^.-^if.S4 R p jU r ~,-&5. * .R LA — - — - 

00106 10* PP1<*2.~* 150/VPF 

00 1 07- - -44 * CPNaOORXVOF — — - 

00110 12* PQS=»CPN*,<! 

OO XU --X3* JBLF*4-PP-U44-. ).jl* 000-3 - - 

00112 1*4* PP0s=PLF*CPN 1 

dfll-U ; 1 5A OEO-si CEdsXXN UuOOO 22 S — ~ — 

0011*4 16* PPD = PPD+ (.PPN-PPO-PPO ) /Z 

. 004.15 17* . I F ( P P-R.+.B PO* I 0 2 5j L-T ♦O-.- ). P P43l*4-*020»P-P-R-M4 

00117 18* PF 1 = ( PCP-PP I+POS-PPC ) *CPF 

00120- 1A4 DFO^OF.E.+.LeLF4=XOF=OF.P4-/Z — 

00121 20* IF ( VPp+OFp* I-tOOl .UT.O. ) DFP b 1 ,001-VPFl /I 

00 123 21* : V-P.Fj*.V.P.F.+OOE.4! — 

0012*4 t 22* PPRsPPR+PPD*! 

004 25 — '--234 — .RE-TURN-- - — 

00126 2*4* END 


c o mjj lat io.n; » ,ncl,. ojagjqstjos..^^ 


Oo 1 0 1 
P010.1 - 

00103 
0QJ0i4. . 


1* SUBROUTINE PUTIN 

3* COMM0N/ARRAY/A(*4OO) »TITLE1*4DO)»COU(20) tAL,PHA«20> 

<4* .. _ ... C0Mt40N/NUM5RO/K *NOl 20 ) 4 NT..I MEC *.UNIXS,NZ *NT 1 MEP^Nlf » MAXNOrNT-I-M-E- 



00.10 5 S*__ _C_0 M M ON / S TO RE / NGl . NG2 J.NG3 »j|G i» N G 5 » Nj3 6 . N_$ 7 . N G jb , N G ’ZD X L.T.L.P iT.NH_.-N Oa 

" 00~t05 " 6* ~ * - TM»TmV,NFIR5T.ZZ(15> ,0LT (9) »08Y(9> ,VMIN( 10) »YMaX(10) , 

Q01Q5 7_* .* NiPT ( 1.8.1 »3E.T A J 1JD ) * N GRAPH 1 101 » Gr APH l lOX. H-EADl 1 .9 ) ..NOEXp „ _ 

00105 8* * .DTMAX 

.... 00156 ... 9* ...... . CQM.MQN/DEJ4-AJSD/ LT APEO »i T.ME.* LEXECN • LCONVI 

00107 10* DATA INOOO/'N »/ 

0 0111 LX* BAXi-ALL/ZALl l/.». BLANK/! • /.aSAMK/XSKMEJU 

00115 >2* DO 1 J 3 1 .8 00 

05 125 L3* ... A ( J ) ■ n . _ _. . ^ — — - 

00121 13* 1 T | TLE ( J 1 “BLANK 

Q.DA2.3. 1 5* NZ=5 

00128 16* NTIMEP**! / 

0-O.lZS XZ« NJIhJ 


00126 

_ . 00122 

00130 
.0.0 1.3 5~ 
00136 
On i nn 

18* 

_ XS.*_ 
20 * 

— 2XA-. 
22 * 
33 f 


MAXNObI 

2 

j Qfl 

Read ( 5 . 100 ) value, numbro.symbol 

rnnuAT i. 11.1 . is.,« ml ......... 


L-LliX-UH-L** - — ■ ■ ** 1 X X **•* O-f-K /v f-l **•■» 4-'t. f T -6 — * - — ’»■' 

IF(MAXNO.lT.NUMBRD) MAXNObNUMBRO 

IF (MUMRRn.FIJ A JU fin rn 3 

00182 
on i iii 

2 <t* 

7 r; * 


A ( NUMBRO ) *V ALUE 

Tin nuiiMcsnisPVMnni ...... ~ — — - 

***** i ■ * U U » 

00138 

.00X85 

00136 
nn i m 

- a j 

26* 
!> 7 * 


_4 -X—l In fc-4-im ) « PA Vl-f a* J l I IPWI^.-**— «*■»• * ■■ ' * " , 

Mill = Hill + 1 . - ’ 

28* 
79* 

3 

DSP=A(286) ‘ 

*— -i — IfcJ * *R ■ ***^ 

00152 

00X53— 

00 155 
on 1 KA 

30* 

_ * 3 

731 

S7P 

FORMATt’O* ,I 6 »*DATA RECORDS INPUT.') 

Wwjyr t . ... — — — * — 

] 32* 

3 

580 

FORMAT!' INPUT NO. AND NAME FOR EXPERIMENT ( I 3 , 1 5 Ar ) . , . * ) 

pc 4 n l c . 1 n i . rn o = ft 7 o t kinFKP. ^ _ ~ — — 

. — XfXl t-DJ-* * 

00165 
nn l a5 

3^ * 

3 

101 FORMAT!I3,15A3) * ' 

r ft F T OUT TF rnNVFRSAT T nNAL' • • 

■■ * i i. . -WXW — — 

00 1 66 

36* 


IFIICONVI ,NE. INO0O) GO TO 31 


0.0X7 0 V 'Jt XEXaSRJ_ 3 7 . 38 ., - X Z - 

00173 *8* 37 NFIRST-O. 

55X7-3 39A CALL -D &gXAY. 1 — 

00173 80* C lF'(N-lO) 201. 3B . 20 1 

O Q t 7.5_ Al* ■ 3J -R£AflJL5x255-X_( A1..RWA1 AI-.UJ 1 ,2n 1 __ 

00203 32* 200 FORMAT (20A8) 

00203 ~ 83* 201 IF! ALPHA! 1 > .E9. SAME) GO To 32 - 

_ . On?nW *D 1 A GNnST I C* ..IMS XKSJ _E5K_-K8 U AXXI X- A£ J a ZE. N _ -M O.ti jUJN X£SE rS— MAX— NQX~ AE -MEAN I 

00206 HR* 1F!ALPMA( 1 ) .NE.ALL) GO TO H 

00210 35* BAA0J.5..-350.L_ NT. 1 MLC-.11NXTJ5 

002 1 H H 6* WRITE (6.102) NOEXP ,{ HEAD ! J ), J= 1 , 1 8 > 

t JL7.# 5RXTE.I 6 . 74-L- UN4.TS^.CX1XLEJ JX^A ! J.).* JjaJ »mAXNOJ — 

00233 88* GO TO 31 

50X33. is.* ‘L_D5-5.-K«U-.X0.- — 

00237 ^DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN NON-INTEGERS MAY NOT BE MEANINGFUL* 

pn?i7 SOS l£ (AL P.HAi KXt£Q..5 UULKXl G5. T.Q..-6 

0O2H1 61* 5 CONTINUE 

002.83 52*. JCr2A - - • — 

00288 53* 6 KbK-1 

002-85 53-* JJO IQ J*1,K. . - - - _ * 

00250 65* Lb 1 

. J20 2SJ 9. D2 JLS.N 05X1 Cf. ...TX E — T -ES T . XOR. ZQUALXTX. B E IWEXn. .HQNc_I NJEGErS .MAY. -NO-T BE-MEANXUgXuX*. 

00251 56* 7 I F ( ALPHA ( J ) . EQ. T I TLE ! L> ) GO TO 9 

.00,253 ■■ - ■ 52*. L*L+i ... .. . 


,pD2S*L. 

bo2?4 

J302S4 

"00254 
00.25.4 
00254 
J125L 
00254 
01) 25.4. 
00256 
.03257. 
00260 
_032£2.._ 
00263 
002.6 6 . 
00267 

. 0 02 7.0 

00272 

—BOOLZii 

00277 
003 0-6. 
00307 
.00331 _ 
003 I 2 


65* 

_ 6 3* _ 
67* 

. 6 B * 
69* 

— 73L* 

71* 
72* .. 
73* 
UL* . 
?5* 

77* 

.. 

79* 

. ea*. .. 
81* 


00316 83* 

.. .03325 a.4* 

00326 85* 

.. 03335 ... . 8.6 
00335 87* 

PJ2.3.3 6 9J33 

00346 89* 

_. .1003.42. 9.0A-1- 

00350 91* 


„ ....If ,!i- tl.J • m A X y 0 qo„ to 7. , 

C ” " WP I TE < 2 , 530 ) ALPHA (J) 

C_ 530 F0RMAJ</*_ THE ..VAR I ABLE » » A4 , * IS. NOT AVAILABLE TO 
C * * CHOOSE ANOTHER ONE TO TAKE JTS PLACE.'/ 

s *. . . ♦. .A.ac • > .. . . __ 

c READ t 2 .53 1 ) ALPHA t J J 

.£. 3.31_.£_0_BLHAL<Atl. _ 

C L* 1 

_C _ 60 T0...7 .. .. .' 

• 9 COL ( J ) ° A t L 1 

NOJ J±=L . ' 

10 CONTINUE 

32 DO 33 Ja t ,K 

, ALPHA! J_I=BET A.LJJ — - 

NO ( J ) oNGR APH t J ) 

_J3 _COLI Jl=3RARHiJ£— - .'. ... 

34 READ15.30O) NT1MEC. UNITS 

33LQ...E03 HA.T.I l.b.,1.3.) 

WRITE (6. 102) NOEXP* 1HEA0CJ) , J»1 , 18) 

.. _L02 .EORMA.T < 1H 1 .2 X.,203 ..Jj-UiZ'. JL+.lBAilZ/jI ) ..^ 

IFIITAPEO . EQ . INOOO) GO TO 13 

... CALI NT.RAN (-7.^J...400j.A-« J 1 .... . . _ _ 

1234 IF (J.LT.Ol GO TO 1234 

— L3..1EJ K.j.SI.1 1_0.).. .3.0. .T Q — 23 

WRITE (6)21) UNITS, ( ALPH A ( J ) , J* J , K ) 

2i .£.QR HA TJ .'..0_.' +A.!U 1-0. (.6JU Ait, 1X0. L — 

WRITE (6, 22) ( COL ( J ) . J»1 * K ) 

22..E.D RMAX0J_ 5)L» !3-! *2XwE40.*JU_9 U X-, F l.CUJL) 1 

GO TO 31 

Til JOU TILL6 XZ.U..-U NJ.IS-.J AL£HA.(.Ji^33U.JJL^ULl^XJ 

71 Format ( iox . 2 H 0 . A 4/ / 5 ( 4 X . A 4 * , * * 'F10.4.4X11 

34._R-E.TURM 

END 


THE .PRINTER..'/, . 



Qoiai 

1 • 

- DJHOJ... 

. 2* , 

9 QAAi 

3* 

00109 

9* 

DO 10 9 .. 

. . 5.* . 

00105 

6* 

00105 

.. . . 7* 

00105 

8* 

QOl 05 .. 

9_* 

00106 

10* 


SUBROUTINE PUTOUT 


S.QHNOii/ Ajig^Xif-AXyJlQi i.T I JLSliDU Li C.Q.U 20.1 j A.LP.H A-1ZQ l * 

COMMON/NUMERO/K |N0 ( 20 > • 

*.. _ . : N.T I ME Cj.UKJ T.S i NZ i.NT IMEP ,.NN t MA.xNQ.a-NT IME 

C0MM0N/ST0RE/NGl»NG2>NG3»NG9*NGS.NG6»NG7.NG3,NG9iDT»TLP,TNP,ND. 

« .IHjJ.MfcUNFIfiSTjZn 1 .S.)„iOL.Y-C5LjJ)BT.(9) , IM J MJ.LCLU T MA X.UOJ-, 

• N»PT(I8),BETa( 10) »NGRAPH( 10) »GRAPH( 10) *HEAD< 19) a NOEXp 

Jt 1 0 J M AA - - — 


.JULIO? 

001ID 

. _g.ni.i 2 .. 


J-L*. 


12 * 

_1.3*„ 


00117 

JULLiJL 


19* 

-!.£*- 


common/tape/total 

_C an ttOMXft EMAND AlLAP.E.Oj.iTMfU.lX X ECW 

DATA INOOO/'N '/ 

DAI.A_5.EC5^-t.S£.C-S-LZ.^-T.M J-N/J-tll N5A/-iU-O.Ua/ ».nOU K *J YJS/AOAY S '-/- 

DATA ALL/’ALL ‘/aBLANK/* •/ 

E fl.UJ. VALE N C .E1A.1 .U. »..TJ 


00122 16* TbA(J) 

0.0 i 2 3 *0 1 AJ3N03.T.I CS. .THE TEST .EOR _EQUA£ l T Y__BEJW.E£M. NJ3N- I NTEsErSJ. MA Y.-NOX.-BE MEAN iNfiFul. * - 

00123 17* 1 IFIUNITS.EQ.SECS) GO TO 2 

. J3 0 1.2S.. — iD I_fijiM.aSj.XC* 1 HE.. JXS T_ .E Qi? . FQUAL-I XY_a£XM EE M-MOMs I MX EG ErS- 4UUE-NOX— B E. HEAMXMG FMU* 

00125 18* lr(UN5TS.EQ»THIN> GO TO 3 

— RXLL27 »DJLiaNaSTlC« THE TES-L-EUR... EQUAL 1 T.Y.„BETWE£N._ilQM=.mi£MERS-MAX. .N.0X_aE-MEAMXM4EXlL-» — 


00127 

CLDJLX1_ 

00131 
. OUXii-. 
00131 

00131 

0D1 31 
.•BJU3X 
00131 
.001 IX 
00139 

_0O.UA 

00190 
...OOIAL 


19* IF(UN1TS.EQ»H0UR? GO TO 9 

♦tU.AJaJMHST.l C* XHE.X.ESX_JE0iL_EJ3MAX LX.Y ..BE.T.WXEM. NON - MJT.EgErS .HA.Y- MQT-..B E-.-ME-A-MLN-GF-UX* 


00192 

On 193 

00199 



IF(UNITS.ES*DAYS1 GO TO S 

JYJ5XXE4 2+5C XU — U-NXT-S 

501 FORMAT!/’ YOU CANNOT ASK FOR TIME UNITS 

J. 9 AH TYPE. 95FCS9.flMlHSa.l3HnURfl > -.fiR. 

* * UNIT’) 

B EAOX2 t.5H 0.1- JUN.1 .T S 

GO TO 1 

2 NT -1 ME = T*6n - 

JF(NTIME.LT.NTIMEP) GO TO 65 

SJ3 T.Q — 6 

NZ=NZ+ 1 


OF * »,A9 , ' • * / 
jaOXY-SB.--B.El. Oft-.../.. 



TO 65 


00150 
Ofll 51 

36* 

37* 

NZ=N2+ 1 
GROPSimHnuR 




00152 

- 38* 

GO TO 6 




00153 

39* _ 

. 9 NT’lMFaT/An. 




00159 

fro* 

IF(NTIME.LT.NTIMEP) 

GO 

TO 

65 

DO 15 6 . 

91* . .. _. 

IF (NTIME.I T.f N2 + 1.1* 

.2.91- 

xa. 

Tn A 

00160 

*»2* 

NZbNZ+1 




DniAl 

9J3*. 

_ GROSSIJ.eDAVS. 




00162 

#»*4* 

GO TO 6 




_ . 00 1 A3 

95* • 

5 -fcLTAME=X/ ID HQ • . 




00169 

96* 

IF 1 NTIME.LT.NTIMEP) 

GO 

TO 

65 


0016 6 tDJXXlQXIXC* — _T HE-XESI JE 0£..£J3UA LUX-BE J.WXEM JJOHtXNIEgErS. .MAY. .MHX-8LE XLEA MIN GF-U-L-a 


00166 «7* 

._Jl£U.70 _9 9* 

00201 • #9* 

QH20.2 SO*. 

00205 51* 

00206 XX* 

00207 S3* 

0.0.2 L 1 5.9* . 


20 


IF! ALPHA! 1 > 
_WRLX EA.6.4 7U. 

GO TO 51 
DD ZD. I_.= -UK 
I ! * NO I I ) 

.dOLlIX.l?. Alii 1. 
CONTINUE 
XE.IXTAPEO . ED » 


NE.ALL) GO TO 7 

NT 1 ME JiNJ XSLjXtXT LEI J ). »AXJ.) a J* 1 , M AXN ol 


1NQOO) GO-TO 39 


CO 

CO 



002 I 3_ 55* 

a 0 2 1 *T ’'56* 

. 002i.6__ 57*. 

00221 58# 

. . 5.0.23.0 SA*. 

00231 . 60* 

QH2J3J2 Ii*_ 

002*13 62* 

-0 A2JUi .63* 

002*15 6*1* 

_ . DSLZMl 4l5*_ 

00253 66* 

00255 68* 

... 0025.7 6SL»._ 

00265 70* 

. 0076-6 . .AJUjL&NI 

00266 71* 


00270 72* 

0027.0... 277- 

00272 >5* 

002.7.2 --ZSJ- 


55* , . CALL M T R A M_( 7jJLt.5 0 0 i A i Jl •_ 

56* f«35 IF t'j.LT.o) So TO 123*1 

57*. .. 3*1 JfJK-101 73 «7.5,m J . . ... 

58* 75 WBITe(6,31> N T1 ME , < C OL ! J > , J* 1 , K ) 

5.2* 31 . FOR MAT L* — *.i.l 6 *7X i F.I.Q.. R , ?J 1 X. *J r 1 U •iU.l_ „ — 

60* GO TO 51 

62* 71 F0RMAT<///56K,I5,IX,A5//5(‘IX.A5,’ * » F 1 1 

.67* SlX ... Jl JJ-M E7«tLT 1J1EA-1 ■ 

6*1* IF(NZ.LT.NN) GO TO 53 

.4.5* liB-Ll£j.j6.*57.1 — ILXj&B-IIS S.U 

66* 52 FORMAT! 1*1, IX, A*t) 


68* 53 IFtNTIME.LT. NTtMECl GO TO 65 

_._62*._ 55 READX5ju3Dxl) Nil H£X .jCJJJU_T.5.,S7WB0L »jC-VALu£ 

70* 500 FORMAT! I 6 , A 5 i A5 . E 1 3 . 6 ) 

.*iU JLGLNOSZ1 C* THE -XESi-FJlR _EU UJLUl J.JT...a£XWi:£.N- 'N QtL-U NXEG E aS_ HAT — NOT BE-MXAjmi&F-UL* - 

71* IF ISYMBOL.EQ.CUNlTS) GO To 66 


U»1VjcI>IiK«*I< 








00272 
. 00275 
00277 

- J3 0-27.7 . 
00301 

-OOJLOL 

- 00301 


*01 AGNOST 

la* 

7?* 

.. _ JW 

81* 


—OJQJJjQJ 8 2*_ 

00301 83* 

.onTO-i— . eat: 

00301 85* 


00312 89* 

-..0-D.3i.2-— Mi- 

00313 fl* 

._DDJU_5. 9.2*. 

00315 93* 


IF1C0NITS.NE. BLANK) GO TO 59 
1 F ( A C 2 1 »6T«*5) A ! 2 ) * ,5 

— C_ ,._D.T rO T M AX/-5-* , 

C TNP*T+DT 

5SE.JH3.-5a_mi-“ia HAXNXI 

IC* THE TEST FOR EQUALITY BETWEEN NON-INTEGERS MA) 

I EX S7 MB OL^Q^44-n,EXH Ui ). S 0 7-0— 3-7- 

55 CONTINUE 

C_ WR ME t 2-. 56i-B7Haxit : 

C 5* FORMAT!/* I 00 NOT RECALL *,A5»*0EING READ 


* • BY TYPING BELOW AS FOLLOWS,'/ 

l ♦ - -A-B-C-a. JIXJMXX XJJ 

REA012.S001 SYMBOL, CVALUE 

. f as.nA.M-A.a.^.tx^F-a«7j 

GO TO 550 


BE MEANINGFUL' 


HTh THE 


II4V.TV1JI 




r:m tuitJ 


95*. 

_*B I A.G.N.Q 5LIXC-*. 
96* 

12 * 

98* 

132 

100 * 

l.tUi . _ 

•DIAGNOSTIC* 

- lD2i- 

•DIAGNOSTIC* 

— LOT.* - 

•DIAGNOSTIC* 
.1 0-5.*- - - -■ 


58 FORMAT! • ' , ' AT' I 5 , 1 X , A5 , 

- l LXa.A-5-,7-.ChiAtlGED .. F ROM— l-»-Ei-Oj-3LM- -T-Q... *-,.F-l 0.3 .) 

A ( MN) »C VALUE 

■ 59 I F t K .GT. 10) GO TO 82 | ~ 

tULLEE.L6jjB.6-l miiLI.I.S jjJU-RitAi-JJ-4-J s.ijia 

86 FORM AT l * 0 * , A 5 , 1 0 ( 6 X , A 5 , 1 X ) ) 

. _T.H£_ T ES.T . -F-Ufi -EQUAL-LT-T-BE-T WEE N_N ON.- I NT-Eft E R-S—MA-Y — N OT-- BE -ME AN-I-NgFUL-' 
82 IF!UNITS,EQ*CUNITS) GO TO 65 

1-ELK . L E .- .LO-l— G.Q.. XO — .87 .. 

WRITE !6,6o) UNITS, CUNITS 

- 6Q-££LBMAJ-i-*„. . OU IE.UJ.- HAS— BEEN- .CHANGED ■ -E.R-0.M-J.A5-, Z.-XQ— L,-. 

• A5 < ' i » ) 

— A7„ UNA T.Sss ami TS- - 

THE TEST FOR EQUALITY BETWEEN NON-INTEGErS MAY NOT BE MEANINGFUL* 

- XFi UN LTS « E 0 » 5-E-CS 1 . &0--T-0— 6 l_ _ 

THE TEST FOR EQUALITY BETWEEN NON-INTEGERS HAY NOT BE MEANINGFUL* 

. -IEU.UN1XSjZQ.TM.LNJ.-GQ TJ3-..A2- - ... ...... - 

THE TEST FOR EQUALITY BETWEEN NON-INTEGErS MA.Y NOT BE MEANINGFUL' 
... iF 1 UNI TS .EQ • HOUR 1 GO TO 63 - . ... . . ... 


MEANINGFUL' 



0Q3N7 

. IQS*. — 


NTlHEf^T/l qNO.+l . 

00350 

1 06* 


~N Z = T /IN N 0 . * 7 , 

90351 .. 

107* . 


SO, TO 6.N ... . . 

00352 

103* 

61 

I'ITIMEP*T*60» + 1 . 

. 0035.3.. 

LQ7*__ . 


__NZ*T . 

0035N 

110* 


SO TO 6N 

...PJ1355. _ 

ux? 

_.62 

, iiTXME.&P.Lt.l j 

00356 

1 12* 


NZeT/60. 

. 00357 _. 

11.3* 


QlD TO 6N 

00360 

1 IN* 

63 

NTIMEP*T/60.+l . 

. 0 0 3 A 1 

1 15* 


N7nT/)NN0. ... . 

00362 

116* 

6H 

NN B NZ+ 1 

0 0 3 A 3 

^ j 7 » 

65 

.RETURN 

003 6 N 

118* 

66 

1FUTAPE0 ,EQ. INOOO 

0.0166 

_ LL?* .. . 

, _ 

CALL. NJRAN 17.» 7.1. 

00367 

1 20* 

35 

STOP 

. 0JJ3ZH.... 

__1.3J.* 

_ 

END - 


END OF “COMPILATION:' 


tz DIAGNOSTICS. 


0.0-101. SUBROUTINE -SESLQJ N.UTSJ 

00103 2* X»J, 

_ QHUlit 1* REJ-UBit 

00105 n* end 


_£NP !jr COMP.ILAT I ON : . .. NO.„JDl AONBS.TI.C5. __ .... ..... 



-&0.inl. • I * SUBROUTINE. -II.MEBT.1T.+.I 01 »J HI » I UI 1 -I.S-U - 

00101 2* C THIS ROUTINE COMPUTES TIME,. FOR PRINTOUT, 

O mni 1* C UiELUJ J„ a Lld£ -1 N _ JU .MS.U-*. 

00 I 0 I N* C OUTPUT I D 1 =DAYS , IHl =HOURS , I M I*M INS » ISl»SECS. 

.00X03- ~ 101 —R. X.-/~ I-HB.0-.-~ ... - 

00 1 ON 6* XI * T - (FLOAT t I D 1 I • 1NN0U 

oataS™ 7 a . ijh i a xi a. 

00106 8* XI = XI - IFLOATtIHI) • 60.) 

0 0)07 . if. i MJ — 5 — XJ — -- - ■ — 

00110 10* ISI = (XI - FLOAT(IMD) * 60. 

Op | I |. 1IA . - . RETURN - 

00112 12* END 


_JENa..(JF_CD11PULATIflN 


NO. .J)J AGNOSTICS .... 



9 o i o L 

00103 
001 O'* 
0C1O4 
,00105 
00 1 0 A 
.OfllOA. 
00107 
PD1 10 
00113 

qxixa. 
00120 
...Q.QJ-Z2.. 

00125 
0 012A 
00130 
0013L 
00133 
-OflXliL. .. 
00135 
. OOi 3A. 


_SUB R 0,y T_I Ng, TTYM ___ _ . 

"COMMON/ ARRAY/ A ( 4.0oV, T iTueV^DO 1 tCOL (20 ) .ALPHa <20 
C0MM0N/NUMERO/K,N0(2O> t ... 

1 NT1MEC»UNIT5»MZ,NTIMEPiNN,MAXN0,NT1mE 
C0Mh)QN/TlYloa/VCHGS(2oaj2.) i^JTSTEP ( 10 0 ^SJ_»PLiiTP T 
COMMON/PPPPPP/R.LOT 8 FUOI 1 A) , R UNS TP 1 I E x ETC I « IpUTP 

„L_ jij'L.aX§.El lILl'^1 <.s 

COMM‘DnrCrETlA-ttD/1 TAPED » I TME , l EXECN » 1 CONV I 

-J3AT.A. 5.T0P/!STD£V,1E.U./_*PX0TJV 

DATA BLANK/’ * / *OONE/ ’DONE’/ 

-DAiA_i.LST.&R/L»3J£lHJU- — — 

DATA SAMEE/’SAME*/ 

--JMJ.A_J.MilR.EJL’- M.QXE ’ ../.i.J.RUN/. ’ .tUiN 

dimension IT5YM<4>, AL PH A 2 t 6 ) 

D A I A . I T S Y.M/ * 5 E C5 • MINS »_j-*iJQU R.’ , • OlA Y-S ’ L 

DIMENSION TOELT A ( 4 ) 

. DAJA TD.ELXA / * 01.6.6 6A6J-#X«-*-60 . *4440 ♦-/ — 

TDELT A < 1 ) » 1. / 60* 

fLLLtLST-E __P 


1 PLOTTM 
T 


PUOTTM 
_I P.L.TP-T 


All) 

1 


00136 22* C 

00136 . 23*_._ . C._. .. . .. . . — — 

00137 24* MAXNO « 400 

aaJJjO __J!5 * C ALJ—LtUJJ-LJaoJ i 

00140 26* C 

00 1.4.0 27 *_ . -C- .READ.-1NPUJ. VA.R XA&LXS -llA-N.T-ED-. 

□ 0141 28* 20 W R I T E ( 6 1 2 1 ) 

QOI. 43 .- -. 22.* _ .-2X-FCLBMA-T-1 ! ... 0 UJP4J-T- WAALTED- aR-SAW£fST.0P_-(j r A44-» *- 

00144 30* READ(5t22,ERR*20) ( ALPH A2 ( J 1 » J= 1 . 6 I 

001 52 aj* . -2-2— E JO BJLA-IX6 AJ1 1 

00153 ‘DIAGNOSTIC* THETEST FOR EQUALITY BETWEEN NON-INTEgErS MAY NOT Be MEANINGFUL* 

-Q0153 32* - LF-LAXPHAXI U-- »XEU-.5XQEJ_S4Q£ 

00155 ‘DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN NON-INTEgErS MAY NOT BE MEANINGFUL* 

_ _ 0.0155 132 LEXAXOHAXt-U - .XJQ* — SAX.EE — «-A-MD IXM E — » Al € *~U -*©-1 O-IXC 

00157 34* K * 0 

JLDX6H. 3.5.? Q 0 25 X£Xii 

00163 ‘DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN NON-INTEGErS MAY NOT BE MEANINGFUL* 

-0DL63 3 A* _.I EX ALP. H A2-( XL ..EX .--BXANKJ._jG.O.XO_27 

00165 J7 • K » J 

0 0X6.6 XflJI „2S.CONXU»II£. - 

001 70 if* 27 I F t K .£0. 0 ) GO TO 20 

P OJ 22 4X-* J £XH— — AJ — K—2 — 6 

00174 41* 00 35 1 a 1 ,K 


- .. 001 77 02* DO 3.4 J ,s>. 1 ,-MaXNO . — - 

00202 43* J 1 = J 

002X3. jt0XA5N0S3XCX-..TH£- TEST -FOR, XQUALIJY— B£ T-WEXn. .NON- 1 NTXgErS MAY NOT-BE--ME A-N 1 NGFUL-*- 

00203 44* 1 F ( ALPHA2 t I ! • EQ « T I TLE ( J 1 ) GO TO 3l 

0.02X5. 35 -* 23 CONTINUE . — ~ 


00205 46* 

__ 00207. J7-* 

00212 48* 

0D2.13 Jl?* 

00213 50* 

- 002X1. SX? 

0021 5 32* • 

—00216 . 53* 


C HERE IF AN OUTPUT SYMBOL RAD. 

. WR I TE 16,29) ALPUA2U1 - 

29 FORMAK’ SYMBOL ’,A4,’ ARONG. TRY AGAIN.*) 

GO TX 20 . . _ - 

C HERE IF A GOOD SYMBOL* 

». 31 . 1111 m i.Ji - ... 

ALPHA { I ) = ALPHA2 < I ) 

35 CONTINUE 



0.021*.. „S9*. . C 

002J6 55* C 

.PQZ16 3b*., X . . . ... 

00220 57* 160 1 S TE P = 1 

_ . 0.0221. . 59* I .VC ■_ L . . _ 

00221 59* C 

PH 2 21 6Q*_ X— SJAJRJ„HF— UN.E.UI ELOfi A.,TliiE. SJ.ePj. „ 

00221 4 1 * C 

.. .5 0 22J _ _62L«. . . .X.. REAP.. ANY. CWG5.-W.ANZED. 

00222 $3* 39 1 I VC c 0 

-00273 -fiiUL — — ■ _ ... 

00225 65* 00 FORMAT!* INPUT WANTED C HG E D . ( A *f , 2 X i F 1 0 . ft ) * » 

- -0X225 £4t* LX PUN. EX _.NJ3_MQ.R.E . C H,6£S..jlUJ ' J 

00226 67* 9 2 WR1TE(6,91 > 

00230. -_6H* . _ 9L FORHAJU. ..S.YMB VALUE-* • *3-1, - .... - - _ — - 

00231 6?* READ < 5 * 93 , F.RR>=92 > SYMBOL $ C V ALUE 

— D0235 ?0* - .9-3._il0fUl.A_T- LA 9 f _2X.*..FU Q-*.5J 

00236 ^DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN NON-INTEgErS MAY' NOT 8E MEANINGFUL* 

002.16 2l« J-EU STJjBlII . E 0. . -U Q NiU -.-SO. LO_5H 

00290 ‘DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN NON-INTEgErS MAY NOT BE MEANINGFUL* 

... noaAO- 23*. - ... — IFU.SY.wBOL- -»EQ* BLANXJ. 40 —TO JL2 

00292 73* DO 95 I ® liMAXNO 

00295 . -79* U. *=_I. _ .. __ ... .... ~ 

00296 ‘DIAGNOSTIC* THE TEST FOR EQUALITY BETWEEN NON-INTEgErS MAY NOT BE MEANINGFUL* 

0.0 2.9 X 1£l* LF LS.Y M ElQJ iXO. ULTXEJ.U J. -.GB—I0-.4.6 

00250 76* 95 CONTINUE 

0025a. _ Z.7*_ . .C_ .HERE WHEN. A.. &YMBOL-.NOT. OE.COGN l ZJED-*. ■ . . _ - 

00252 78* WRITE!6,991 

aO-25.9.. . . .JLSLt _ 45 _F.ORMAI-t..*...SY-MBOL -NaT.-JLEC 0GN42ED-.- J-R.Y. -AG-A-LW*.-'-) 

00255 80* GO TO 92 

00256 82* 96 VCHGS(IVC,1> * II - 


_ _ OOi5Z_ a3.«_ „y.CHOS (. ULC-, 21 . c. CVAUJE-' . _ _ __ _ 

0D260 B9* . WRITE(6,1S0) S Y'M B OL , CV A L Ue 

gq 2.65. fiL5* 1 50 .r.gjiHAJTU— io-xu ... 

00265 06* I F ( I VC *LT* 200) 'GO. TO 97 

0O2AJ 0X5 JffiU££J.6^JL8.1 

00271 88* 96 FORMAT!* BUFFER FOR CHGS»FULL* * I 

_ .0027.2 A9-* GO T-0..5Q ... - 

00273 90* 97 IVC “IVC + 1 

0.027.9 _.9.-U* I-I4LC « — 14 V C ..* — 1 1 — s— 1— . — — 

00275 92* GO TO 92 

00275 $9* C 

00275- 9.5.* C _ .READ - J IJ1& .SJT&P CARD,..- ... 

00276 96* 50 «R1TE!6,5S1 

Q0300 9J.SU.. SB-EOBMAJ!.' -T4-ME 5I£P_. UU-U-X , FT. .0 »F6.* 04 ♦ *./.„ 

00300 98* 1 « UNIT PRINT TIME ( UN I T = D A YS , HOUR , M I N 5 , SECs , STEP I * * . ' > 

.00301 „ 92*. _ . SHAD I Sa 5.6 ,ER P. p£D,)_JJ1N.I.TS4 X P »XZ. _ 

00306 100* 56 F0RMAT!A9, 1X.2F6.0) 

.. 00307 .- J-01* — , . I c X2 - . .... . . . _ . 

00310 102* 1 2 * X P 

.003.1.1 . 403*. .. LF I I UNITS »NE. JlSTEP). GO T-0 200 . . - „ 

0031 1 109* C WILL CALCULATE AND OUTPUT R(jN STEP. 

00303 105* ....... . .CALL .T4MP.ST ( PL 0 T Til » I D l.* I H 1 . I M 1 ,1514 .. 

00319 106* TT = PLOTTM + PUNSTP 

_ .00315. _ 107 A . - - CALL T I H p r T ( T T * I D 2 » I H 2 . 1 M 2 * J 52 ) 





. 0 OJH 
003 1 7 
00317 
00335 

.0033 5 

00335 

003 35 

00336 

. 9Q.30J. 

00302 

_.o.o3.a_*L. 

00300 
Q9JL9 -(l_ 


i 08* 
~10 9~* 
110 * 
111 * 
.. 1 12 *. 

1 13* 

L19.*_ 

1 15* 

1.16* 

1 17* 

--139* 


119* 


. . . c ? i. L..I I.1P.R T t RJJ N S.T e tJ D 3„U H 3 t j fl3 t I S.3J 

*R1TE(6,I03> I01»!H|iIM1iIS1,I0Z»IH2*iM2. 

1 ...1 S 2 J I 0 3 i 1 H 3 i J M 3., I 5.3 ' _ .. 

106 FORMATl* RUNSTEP **71*,*),* BEGIN*, 

_ 1 13X».7.!.*.. t .*J *.!...EJ4Bi_i.9.X4.7 t.’^* ).x*. X N.TERV aL *./.. 

2 * * , 13 , *DAY* , 1 3 , *NR* , 13 , »MN* , 13, *SE' , 

3_mx* UjABAY * _i_U «. UxlM H 1 5 E.* U— 

200 DO 50 II b 1,0 

JTSJf tl . 

IF11UNITS .EQ. I TS YM (11)1 60 TO 62 

... 5iL_£XltLU UlLE 

here when error in time unit. 


00396 
00 3f» 7. 
00351 
.0.0353... 

00359 
-.■POLARS-.- 

00356 
_fl 0.3.56 

00357 
0.0360 
D0360 

00.340. 

00360 
J&3A1. 

00363 
QQA6 0 
00367 

-QfllZ-g 

00372 

0.0 17 9 

00376 
O ORnn __ 


121 * 
JJ22 *_ . 
123* 

-. 1 2 .ft*_ 
125* 
_12AA_ 


127* 
—l 2&-i — 
129* 
l AO • 
131* 

1.32.*_. 

133* 
1 U*.. 
1 35* 

.. Uj 6 $ . 
1 37* 
.Lift*. 

I 39* 

_ iSjq* . 


— 42. I F.t l_. • LE ». Hi. J1Q .JO . 50. 

I F I 1 2 .LE. 01 GO TO 50 

J T S T.EJi.ll.SJXfia 1 .1 *__1- 

JTSTEPl ISTEP*2> a ITSY 

JXSJAE-USXEP.tAl- 1AVX 

JTSTEP I I STEP »5 ) " 12 

_.C- AUNS.T£E_J«. MiNS--F.OXi-IUJJi-SJ.ElXU--, - 

RUN5TP a RUNSTP + ( FLOAT ( I) *TDElTA ( I TSY > ) 
— . PUXT-P.T 5-XJXJNSJR-./-. Laa*_ - - — - 


c 

c 


READ EXEC PARAMETER, 

J> 9 . J/JLX T£ 1 6 , ZO 1 

7D FORMAT 1 * EXEC P ARAM , I A0 ) ( MORE i RUN , PLOT >*••* ) 

7.3 — 8 E.AD 15,72* E&R.H.4.9J. — I EAEX.L 

72 FORMATlAR) 




00001 

JB 0.0 0.1. 


101 * 

-LS.2*. 


103* 

119*. 


IF < IExECI .EQ* 

1 F.li£ X.E.C.I ,-EJU 

WR I TE ( 6 , 7$ I 

7-5.. EJidATJ.*. 

GO TO 73 


JRUN 1 GO 
.LEU. ) 10- 



00002 
— Di.9.03. 

00003 
. „0JliQ5. 
00006 
-J1P.9Q.6- 


105* 

J.0.6.*. 


107* 

LS-9-*- 

109* 

_i5Q#_ 


00 JTSTEP 1 1STEP.0) “ IEXECI 
LE-UFXEC-J ..ME..- Jh nRF l GO |n rr 

ISTFP g t.RTE P *. 1 

!F( 1 STEP .IE. 100) GO TO 39 


00010 
-0 09 12 
OD013 
-QOiU.0- 
0D9 1 5 


151* 

132*. 

153* 

LS.0JL. 

155* 


6'RITE(6,B5) 

..AS. F-O.RM A T t *- BUFFER -F-UU FJlR-. 

JTSTEP (50,0) e JRUN 

. 9X1, . RETURN 

END 


.TJME STEPS**) 


. ..END .OF...XUblP.lLATJON 


7 DUGUOS-TI.CS 



Oolni i* subroutine ttyout 

.-P04OJ. . 2*. CO41im0/ARjlAi/.JU.SUOL,TITLE UtQOJ , CO LI 20 |-j ALPHA I 20 ) 

00100 3* common/numero/k ,no( 201 , 

.0010*1 . It. . a. . NTJJ3E.C tuni.TS«NZ .MJTIHEP.iJJN ,MA-XNO,MT ImE. 


00105 
00104*' 
0.0J07 . 
00107 

. PHI 1 CL. 
001 1 1 
— QXLU 3 — 
001)6 
..001.20. 
00121 
. .00.1.2.1. 
001 21 
On I 7 3 
0012*) 

. . 00125 

00125 
_ 043424— 
00124 
. ...001.10. 1 
00130 

001.3.2, _ 

0013*) 
00134 . 
00137 
00402 



COMMOM/ TT Y IQ B/VCH g SJ 2 0 0 *2 ). , 4T. 5T E.P.L1. 0 0 ..SJ.tHL QXEX j EJJ2U M_ 


COMMON /DEMAND/! TAPED, I THE, 1EXECN, 1C0NV! 

..COM M 0 Nj P P PP P P /pj. OTB E t 1 DJ.i 4.1 ,.PU.N S.TPjJ EjlE C.I., I P. L.T PT 

1 ,TLOTBF( 101 ) .KSTDPP 

-C.PJ1P Q11/.5J DP E/XU N.L.1.1 IS Lj HE A C LL9 l .tDO.EXP 

DATA INOOO/'N '/ 

DATA JHQR F/ 1 MORE 1 . / * JRUN/.T.fLU.N — L/ 

DATA 1PLL/1PL0TV 

-J3. I-M£4L5.-U1M_ JDEl, TA 4.-U. ._ 

DATA TDELTA/,01 446447 , I • *60* , 1000,/ 


KsiO-EP . .. °. ,n.. 


TDELTA <l)nt ./40. 

T *l . A 1 1 J 

SEE IF TIME TO BUFFER VARIABLES TO PLOT* 


1 # EO . JRUN) GO 

1FI-T ,GE. T.1MEC. 


TO 71 
AJUJ.IU. 




1 .EQ. IPLU) GO To 71 

1.FXPL0-T.T.H- •031* — TJ..G 0— 4XL-B0_ 

71 IFUPLTPT ,GT, 1011 IPLTPT 

_ TLD.TaF.UP 4 _TE.IX .«_t 

DO 81 1 • 1 ,K 

J-.g-KCLLlJ 


101 


00103 
QQ4H 0. 

00104 
.HOlJil. 

□ 0150 


30* 

_3X*_ 


32* 

_3i*_ 


30* 


PLOTBFt IPLTPT*! ) « AIJI 

_3i_ C0WZ4NJXE 

IPLTPT ** IPLTPT + 1 

ELO TJLM-.0 P.j-O.Tj M . .. t ..EUUEI 

1 F t I EXEC I ,NE. IPLU) GO To 80 


onis 2 
00152 
On t *; 3 

_ 1 S» 

36 * 

It* 

CAU P.L 4 LL 3 _ 3 _. . 

c see: if this routine called Just after inputting. 

PH TFITT Mp -pa* a' fin rn inn . . __ . ... . . ... 







> 


00155 

— - 011154 - 

00157 

, 001 . 4.1 

3 d* 

JSTEP * I 









flo* 

01 *—.. 

I F ( IEXECT ,ES. IPLLI GO TO 200 
f A) 1 MFWPtfi 




•_ 


, 

. V *' 

' - 


00142 

00421 

00177 

. -jn2oa_ 
00200 


02 * 

.Aa*_. . 

H0« 
.05* 


_. JUR4XE4.6 *24-14- 
1 P A G = Z 
GO—TQ.XOO 


4ALP4LA.LJ.1., J*4-»-<i- 


04* 


........ V fJJLU 

00201 

08* 

. 00201 .. 

. .0.9 J* .. 

00203 

SO* 

00203- 

. 01 *.. 

00203 

52* 

0112 03. 

SJl*. — 

00203 

50* 

00205— 

. .55*. . 

00205 

54* 

. _ 00204 

. 52*.. _ 

00211 

50* 

.... 00212 — 

59* 

00213 

40* 

00213 

41* 


_C 

c 

c 

. c„ 
c 


_ MJERE—AEJ EB_A_L4X0E_ TURD 1 1 ■ MODEL* 

100 IF) IEXEC1 .£0. IPLLI GO To 35 
. . -SEE- IF T-lME-TO. ERI4JT. . 

I F ( T .LT. T1MEP) RETURN 

OUTPUT VARIABLES. 

COMPUTE TlMf. 

__ CALI UMPRTJT, , 101*141, IM1 ,4S1 1 - - 

BUILD OUTPUT I , C0LI5) • 

11 DO. 15 l * 4 » *<; . . 

J = *10) 1) 

cm.il). =..Aij) ... ._ . ... 

) 5 CONTINUE 


C 



QJ3.2 LS. „ 

.. £?. • .. .. 

00216 

63* 

00217 

63* 

00231 

65* 

0D221 . 

..6 6* 

00231 

67* 

00221... ._ 

„62* 

00232 

69* 

00232- 

.. 70*.. 

00233 

71* 

. .QD223 . 

72* 

00233 

73* 

Q 0? 3 3 

7 t) * 

00233 

75* 

00233. . 

. 762- 

00236 

? 7* 

- 00226. - 

-- 22* 

00236 

79* 

□ngqn , 

Bn* 

00231 

81* 

. - D.023 3 

-22a— . . 

00233 

83* 

0023.3 

. 89*.... 

00233 

85* 

r>n?33 

86* 

00233 

67* 

— . 0023.5. 

. .. 82*— 

00236 

89* 

00236 

_ 90 «_ 

00236 

91 * 

0 0736 

97* 

00236 

93* 

09797 

93* - 

00237 

95 * 

00737 

96* 

00250 

97* 

On?t;Ti . 

92* 


, A SM <5 N _..LZ. .JJ?. . L 8 AC 

GO TO 310 

17 A'RI.T.E.f 6 lie ) IDl I IH1 , I M 1 . 1S1 , ( COL-1 J> . J«1 ,-K J- 
13 FORMAT!* • *9I3.SF10.9,F9,3> 

c 

£_ XCLtl£.UT_£__fJ£_XX. iJJl£_.LO._E^.UlT.i 

30 1 a ( T / TDELTAl ITSY) ) + JT STEP < 1 S TEP , 5 > 

. T 1 M£P. *= 1 * -J.D.EU M .I.JS.YJ ’ . 

C 

C__S£E...I F ..-E.NP. O F-XXME-S.TXP-. 


35 IFIT .LT. TIMECl RETURN 


HERE-2HEN -F..I N 1 S H&O-A ...U2E. -S TeP • — 


1F( JTsTEPf I STEP * ** » • EQ . JmORE) GO To SO 

C HERE WHEN FINISHED RUN STEP. 

IFUEXECI .EQ. IPLLJ GO To 360 

C A -U RJ-GE3. 

C SO TO ROUTINE TO PLOT. 

- 3-60 CALL- PL0.T33- - - 

C 


C HERE WHEN NEED TO GO BACK TO TTYIN TO GEj NEW TIME STEPS. 
RETURN 


■HEgE—W.hlE.N 1 NEXT.. T. 1 M.E...S TEP...-I-S . ■Lf2.J42.T££.L&0- r iU-»- 
VCHGS(200,2) . EXEC PARAm.IS 


chgs.for 
-SO 4-S4-&& 


-AWS-- 


sahe in 

-=—12422-. 


4- 


H0RE, 


-C2M2U2E- - T -U1E4-. 


200 CALL T1MPRT1T , IDl , IH1 , 1 M 1 , Isi ) 

—S-E.E--I-fL-.A-N T — CHOS-. ASS 0C.ljLXL0-JWLl3L-J4LL5--LT-^t£--S-T4:-PL- 


00251 

00252 

99* 
1 nn* 

201 

!FUTSTEP( ISTEP.3) . 
—1F-1 Al 21 .-6-T-. , 5 > a _{_2 

EQ, 0) 60 TO 210 

□ 0255 

nn7p6 

ioi* 
] n>* 


11 * VCHGSt IVC.l) 

T f < 1 FXFC I . EQ « 1 PLL 1 

GO .Xq— 3Qfl 

00260 

Q026J 

103* 
.103* - . 


ASSIGN 205 TO LBACKK 
fin to 1 f n 


00262 

105* 

205 

WRITE{6,?06) I 0 1 • ! H 1 

» 1 H I * I S I t T I TLE < 1 1 ) iAt 11 ) 


. - D0ZZ2 — 
00273 
_ QQ2Z3 — 
00273 
- QQ222. „ 
00276 

-QDZ7X 

0D277 
-- 0-0277 . _ 
00277 

21027.7 

00300 
..00201- — 


LQ2.*_ 

107* 
102*— 


109* 

11XL1 — 

111* 

. .4 12* 

1 13* 

U 3 *_ . 

1 15* 
UA! — 
117* 

U 8.*- 


_20,6 F D R MA.TJL ’ A T 1 -»X3_» .* — OlAX.. '.i 12 » Z-2R iJU-1.2-, 

1 • MlN,» f 12»» SEC' , 

J 2 A.H.»4 ..F-Rattl. F4 Q-.3 j-i— TO'-* F-LO .-3 ) — 

300 A ( I 1 ) » VCHGSI JVC, 2) 

[JEC 3. .12(2. J--l„ — — . 

JTSTEP < 1STEP . 3 1 = JTSTEP ( I STEP . 3 ) - 1 
, - ... 50. T.D.201. _ . . - 


2UJ-J1AX.T12E F Oil XLFlE — S LEP .1 hL T.1 HEC^.. - .. 
210 ITSY = JTSTEPt 1STEP.2) 

J. » 1 T/TUELTA ( ITSY 1 1 + JTsTEP 1 1 STEP i-l 1 


vo 

VcJT— 


t X? „ 

1 20 * 
121 * 
122 * 

„ i 2 a* 

1 24* 

1 25* 

126* 
-__t 2 X* 

1 28 • 

I 29* 

130 * 

1 JU. *■■■■■ 

1 32* 

133*_. 

13H* 

1 35 *-. _ 

l $6*. 

JL 11 * 

1 36* 


.._t j±Lec_=_j.._*_iJ2f:uji>ii.i5JJ.__ 

IF! 1 EXEC I • EQ« IPLL) GO To 3S 

C ...... . _ 

c OUTPUT IF THIS 1ST TIME TTYOuT CALLEDt 

.. . lFUT.ME_.tEQ*. 1J_6 0_J0 .1.1 

C 

. £ Jj£ X.I JLLUE- JLQ_P.P. ? M J„, J, JULl jl££L« 

GO TO 30 

C __ . 

C ROUTINE TO ASK FOR HARD COPY EVERY 25 |_1NES»ERA5E PAGEtOUT 

3-1-P.— I£AJj_-S LP.A.G.-t 1 

IF! I P AG .LT. 251 GO TO 332 

C ALL. P.AGF 3 

WRITE16.361 ) NOEXP . (HEAD! J) , Jsl , 15) 

...361 FjQRMATU *,U » 1 SLAJU 

WR1TE(6,2J1> (ALPHA! J) »U»1 iK> 

. — 2.1 1. F 0(mAj-LU.pAY— Hfi— UN— 5E1 1-6.1 6-X^AGl 1 

I P A G = 2 

END 


HEADING* 


.END. OF COUP HAT I OH! . 


-N.0 D.1 AGMOST-I CS.»- - 


